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THE INFORMATION IN THIS DOCUMENT IS SUBJECT 
NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL 
DIGITAL EQUIPMENT CORPORATION ASSUMES NO 

RESPONSIBILITY FOR ANY ERRORS THAT MAY APPEAR IN THIS DOCUMENT. 


NO RESPONSIBILITY IS ASSUMED FOR THE USE OR RELIABILITY OF 
SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY DIGITAL OR ITS 


C 
EQUIPMENT CORPORATION. 
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1.0 GENERAL INFORMATION 
1.1 PROGRAM ABSTRACT 


THIS DIAGNOSTIC HAS BEEN WRITTEN FOR USE WITH THE DIAGNOSTIC 
RUNTIME SERVICES ohh nF Fs ede Ie THESE SERVICES ts od gee 
THE INTERFACE io THE OPERA of AND TO THE oo ive 2 ENVIRONMENT. 
THIS PROGRAM CAN BE USED H XXDP+, LIDE AND PAPER TAPE. 
FOR A COMPLETE DESCRIPTION. OF THE pont Ime SERVICES, —, 1 THE 
XXDP+ USER'S MANUAL (CHQUS?.SEQ WHERE ? IS REV. LEVEL OF THE 
MANUAL). THERE IS A BRIEF BESCRIPTION. OF THE RUNTIME SERVICES IN 
SECTION 2 OF THIS DOCUMENT. 


-2 SYSTEM REQUIREMENTS 


ORDER TO RUN THE KMS11-BD/BE DCLT PROGRAM, THE FOLLOWING 
INIMUM HARDWARE IS REQUIRED: 


A PDP-11 C 
MINIMUM OF MoaK WORDS OF MEMORY 
A WORKING, By: A. REAL-TIME CLOCK 
A CONSOLE TERMI 
ANY XXDP+ SUPPORTED errs 
A ste A 5 ye y Ned 5256 TURNAROUND CONNECTOR 
THE KMS11-BD/BE COMPONENT PARTS ARE: 
1 KMC11-8 ar 
1 DMS11-pA LINE UNIT 
1 H317-M DISTRIBUTION PANEL 
1 DM11-BA MODEM CONTROL MULTIPLEXER 


.3 RELATED DOCUMENTS AND STANDARDS 
KMS11-BD/BE OPTION DESCRIPTION YM-C174C-00 


ze = 
—Z 


— 


- KBC11 ni CRDPNOCE eee USERS MANUAL EK-KMC11-0P 
= KMC11-B PROGRAMMERS MANUAL YM-P093C-00 
- KMC11-B ous MICROPROCESSOR 

OPTION DESCRIPTION YM-C093C-00 
° -BA MODEM CONTROL MULTIPLEXER yM-C138C-00 


DM11 
DMS11=D/DA SYNCHRONOUS LINE UNIT 
OPTION DESCRIPTION YM-( 186-00 
XXDP+ USER S MANUAL (CHOUS?.SEQ WHERE PIS THE REV. LEVEL OF 
THE MANUAL = “CIS THE CURRENT REV.). 


SEQ 5 


G 1 
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1.4 DIAGNOSTIC HIERARCHY PREREQUISITES 


SES & 


THE GOAL OF THE DATA COMM, LINK TEST PROGRAM IS TO TEST THE 
COMMUNICATION LINK AND THEREF ORE ASSUMES THAT THE cP u i 
CLOCKS, THE KMS11-BD/BE USED AT ONE END OF THE LINK THE 
DDCMP  EUPPDRTING COMMUNICA TIONS DEVICE USED AT THE OTHER END 
OF THE LINK HAVE ALREADY BEEN TESTED. 


IF NO LINE OR iets CLOCK IS FOUND, THE PROGRAM WILL CONTINUE 
BUT WILL NOT FROM ROUTINES USED TO TIME WAITS FOR COMPLETION 
OF A PROCESS AND “ait NOT REPORT ELAPSED TIME IN SUCH TIMIN 
LOOPS. IN ADDITION, THE EVENT LOG WILL CONTAIN A ZERO EVENT TIME 


IT IS_NOT THE INTENTION OF A DATA COMM. LINK TEST PROGRAM TO 
TEST THE py bie 34 BUT TO TEST THE COMMUNICATION | INK TO 
WHICH IT IS CONNECTED. 


SOME 4, By, THE DIAGNOSTICS THAT COULD SE RUN IF THE KMS11-BD/BE 


LOOKS 
CZ7KMB = KMC11 TEST = PART 1 YM=Z093D-A (MICROPROCESSOR) 
CZKMC = KMC11 TEST = PART 2 YM-2093D-B (MICROPROCESSOR) 
CZKMD = DMS11=-DA STATIC TEST YM-2136D-1 (LINE UNIT) 
CZKME = DMS11-DA DYNAMIC TEST YM-2136D-2 (LIN i 
CZ2KMF = DMS-11- aly (LINE UNIT-MODEM 
INTERACTION TEST YM-2136D-3 CONTROL INTERACTION) 


CZ7KMG = DM11-BA MODEM CONTROL 
TEST YM-2138D-A (MODEM CONTROL) 


1.5 ASSUMPTIONS = RESTRICTIONS 


IT IS ASSUMED THAT THE KMS11-BD/BE HAS BEEN TESTED USING THE 
PREREQUISITE DIAGNOSTICS. THE OPERATOR SHOULD HAVE READ THE USER 
yas etl PORTION OF THE LISTING TO FAMILIARIZE HIMSELF WITH 
THE COMMANDS AND CAPABILITIES AVAILABLE UNDER THE DIAGNOSTIC 
SUPERVISOR AND DCLT. 


CZKMSAO eth tS DCLT 


CZKMSA.P11 


DEC- 


82 1 


4 1 
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2.0 OPERATING INSTRUCTIONS 


THIS SECTION CONTAINS A BRIEF pcs senile OF THE RUNTIME SERVICES. 
FOR DETAILED INFORMATION, REFER TO THE XXDP* USER’S MANUAL (CHOUS). 
2.1 COMMANDS 
THERE ARE ELEVEN LEGAL COMMANDS Nee THE DIAGNOSTIC RUNTIME a 
(SUPERVISOR). THIS SECTION LISTS THE COMMANDS AND GIV 
BRIEF DESCRIPTION OF THEM. THE XXDP* USER'S MANUAL HAS MORE DETAILS. 
COMMAND EFFECT 
START START THE DIAGNOSTIC FROM AN INITIAL fies 
RESTART START THE DIAGNOSTIC WITHOUT INITIALIZING 
CONT INUE CONTINUE AT TEST THAT WAS INTERRUPTED (AFTER “C) 
PROCEED CONTINUE FROM AN ERROR HALT 
EXIT RETURN TO XXDP+ MONITOR (XXDP* OPERATION ONLY!) 
ADD ACTIVATE A UNIT FOR TESTING (ALL we ARE 
CONSIDERED y a gales AT START TIME) 
DROP DEACTIVATE A 
PRINT PRINT STATISTICAL INFORMATION (IF IMPLEMENTED 
BY THE DIAGNOSTIC = SECTION 4.0) 
DISPLAY TYPE A LIST OF ALL DEVICE INFORMATION 
FLAGS TYPE THE STATE OF ALL FLAGS (SEE SECTION 2.3) 
Z2FLAGS CLEAR ALL FLAGS (SEE SECTION 2.3) 


A COMMAND CAN BE RECOGNIZED BY THE FIRST THREE ula $0 
YOU MAY, FOR EXAMPLE, TYPE “‘STA’’ INSTEAD OF ‘’STAR 


SEQ 7 
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1 1 
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2.2 SWITCHES 


THERE ARE SEVERAL SWITCHES WHICH ARE USED 10 Bs iy supeny see 19 aaa 
THESE SWITCHES ARE te $4 TO THE atiott COMMANDS. ALL THE LEGA 
SWITCHES ARE TABULATED oe LON WITH A BRIEF DESCRIPTION OF OFAC H. % 

IN THE DESCRIPTIONS BELOW, A DECIMAL NUMBER iS DESIGNATED BY ‘‘DDDDD"’. 


SWITCH EFFECT 


/TESTS:LIST execurs omy THOSE {ests SPECIFIED IN 
THE LIST. THE K et -BD/BE DCLT PROGRAM 
CONTAINS ONLY ONE TEST. 
/PASS:DDDDD EXECUTE DDDDD PASSES (DODDD = 1 TO 64000) 
/FLAGS:FLGS ie sichion 3-3. FLAGS. FLAGS ARE DESCRIBED 
/EOP:DDDDD REPORT END OF PASS ie free ad EVERY 
DDDDD PASSES ONLY. (D TO 64000) 
/UNITS:LIST TEST/ADD/DROP ONLY 1HO8E UNITS SPECIFIED 
IN THE LIST. THE KMS11-BD/BE DCLT PROGRAM 
WILL TEST ONLY ONE UNIT 
EXAMPLE OF SWITCH USAGE: 
START /PASS:1000/E0P:100 
THE Aa OF THIS COMMAND WILL BE: 1) TESTS ? ts 5 WILL BE 
EXECUTED, 2) ALL UNITS WILL TESTED 1000 TIMES AND La 
PASS MESSAGES WILt BE Sy te | D AFTER EACH 100 PASSES 0 A 
tM CAN BE RECOGNIZED BY THE FIRST THREE CHARACTERS. "vOU MAY, 
FOR EXAMPLE, TYPE "'/TES:1=-5°" INSTEAD OF "‘/TESTS:1-5"". 


BELOW IS A TABLE THAT SPECIFIES WHICH SWITCHES CAN BE USED BY EACH 
COMMAND. 


TESTS — PASS FLAGS - EOP UNITS 


START x x » 


SEQ 8 


41 
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2.3 FLAGS 
FLAGS ARE USED TO SET UP CERTAIN OPERATIONAL PARAMETERS SUCH AS 
LOOPING ON ERROR. ALL FLAGS ARE CLEARED AT STARTUP AND REMAIN 
CLEARED UNTIL EXPLICITLY SET USING THE FLAGS SWITCH. FLAGS 
RE ALSO CLEARED AFTER A START COMMAND UNLESS SET USING” THE 
LAG SWITCH. THE ZFLAGS COMMAND MAY ALSO BE USED TO CL 
LL FLAGS. WITH THE EXCEPTIO: N OF THE START AND ZFLAGS COMMANDS, 
NO COMMANDS AFFECT THE STATE THE FLAGS: THEY REMAIN SET OR 
CLEARED AS SPECIFIED BY THE ath FLAG SWITCH. 
FLAG EFFECT 
HOE HALT ON ERROR - CONTROL IS RETURNED TO 
RUNTIME SERVICES COMMAND MODE 
LOE LOOP ON ERROR 
IER* INHIBIT ALL ERROR REPORTS 
IBE® INHIBIT ALL ERROR REPORTS EXCEPT 
FIRST LEVEL (FIRST LEVEL CONTAINS 
ERROR TYPE, NUMBER, PC, TEST AND UNIT) 
IXE* INHIBIT EXTENDED ERROR REPORTS (THOSE 
CALLED BY PRINTX MACRO S) 
PRI DIRECT MESSAGES TO LINE P 
PNT PRINT TEST NU MBER AS TEST RE NEEUTES 
BOE ‘BELL’ ON ERR 
UAM UNATTENDED MODE (NO MANUAL INTERVENTION) 
THE KMS11-BD/BE DCLT REQUIRES MANUAL 
INTERVENT 10N 10 SELECT A LINK TO 1. 
ISR NHIBIT STATISTICAL REPORTS (DO 
APPLY TO DIAGNOSTICS WHICH DO NOT WOPPORT 
STATISTICAL REPORTING) 
IDR INHIBIT PROGRAM DROPPING OF UNITS 
ADR EXECUTE AUTODROP CODE 
LOT LOOP ON TEST 
EVL EXECUTE EVALUATION (ON DIAGNOSTICS WHICH 


HAVE EVALUATION SUPPORT 
*ERROR MESSAGES ARE DESCRIBED IN SECTION 3.1 


SEE THE XXDP+ USER'S MANUAL FOR MORE DETAILS ON FLAGS. YOU MAY 
SPECIFY MORE THAN ONE FLAG WITH THE FLAG SWITCH. FOR EXAMPLE, 
70 CAUSE THE PROGRAM TO LOOP ON ERROR, INHIBIT ERROR REPORTS 
AND TYPE A 'BELL'' ON ERROR, YOU MAY USE THE FOLLOWING STRING: 


/FLAGS:LOE : JER: BOE 


SEQ 9 


: 3 


SEQ 10 
CZKMSAO KMS11-BD/BE DCLT MACY11 30A(1052) 23-DEC+82 14:01 PAGE 11 
CZ2KMSA.P11 25-DEC-82 13:54 


2.4 HARDWARE QUESTIONS 


WHEN A DIAGNOSTIC 1S STARTED. THE RUNTIME SERVICES WILL PROMPT 

THE USER FOR HARDWARE INFORMATION BY TYPING "CHANGE HW (L) 2°’ 

YOU MUST ANSWER ‘'Y'' AFTER A START COMMAND UNLESS THE "HARDWARE 
INFORMATION HAS BEEN "‘PRELOADED'’ USING THE SETUP UTILITY (SEE 
CHAPTER 6 OF THE XXDPs USER'S MANUAL). WHEN YOU ANSWER THIS 
QUESTION WITH A “'Y UNTIME SERVICES WILL ASK FOR THE NUMBER 


OF UNITS CIN DECIMAL). 


THE KMS11-BD/BD COMM. LINK TEST PROGRAM WILL NOT USE MORE THAN 
mats ane” FOR THE KMS11-BD/BE THE HARDWARE INFORMATION REQUESTED 


# UNITS (D) ? 1<CR> 
UNIT 0 
FULL DUPLEX ONLY 


DEVICE CSR ADDRESS : (0) 164100 ? 
INTERRUPT VECTOR rag: ta (0) 400 ? 
INTERRUPT PRIORITY: (0) 

DM11=BA CSR ADDRESS (0) 464110 ? 


AFTER THESE HARDWARE QUESTIONS ARE ANSWERED THE PROGRAM ENTERS THE 
DCLT COMMAND LEVEL AND PRINTS THE FOLLOWING MESSAGE. THE LAST LINE 
OF THE MESSAGE IS THE PROMPT FOR A DCLT> COMMAND. 


THIS IS DCLT. TYPE “‘H’’ OR **?"* FOR DETAILS 
MODE =ACTIVE/PASS=00001 
/NOSTATUS/ CHE CK/NOE CHO/NOMODEM 
DCLT> (A) ? 


. 7 
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SEQ 11 


2.5 DATA COMM. LINK TEST COMMANDS 


THE DCLT COMMAND LEVEL IS ENTERED AFTER THE HARDWARE QUESTIONS ARE 
PRinteDe. TYPE IN DCLT COMMANDS WHEN THE DCLT> (A) ? PROMPT IS 


Sete CAN BE TYPED WITH ONLY ENOUGH CHARACTERS TO UNIQUELY SPECIFY 


O RIGHT. THEREFORE THE 
QUALIFIER PARTHEREST TO i RIGHT TAKES ernie ae SINCE IT 


e it I$ 

/CHEC APPEAR ON THE SAME 
LINE, NOCHECK WILL APPLY 0 THE COMMAND.) 

PARAMETERS WORD 


SECTION 6.0 DESCRIBES THE DIFFERENT MODES UF TEST OPERATION AND 
THE TYPES OF MESSAGES AVAILABLE. 


2.5.1 MESSAGE COMMANDS 


COMMAND DESCRIPTION 
DCLT> (A) ? CLEAR EXPECTLIS? 
S THE EXPECTLIST WITH 
S AND THEN PUTS ONE 
MESSAGE ON THE LIST. 


S THE Lene oP ge WITH 
S AND THEN P ONE 
MESSAGE ON THE ist. 


DCLT> (A) ? CLEAR TRANSMITLIST 


= 2,OoOrF 6#«VTOF 


mM 1 
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SEQ 12 


DCLT> (A) ? SET TRANSMITMSG=TYPE/QUAL TO BE PUT ON 


DCLT> (A) ? SET EXPECTMSG=TYPE/QUAL 
WHERE: =TYPE IS ONE OF: 


TO BE PUT ON 


hnnnnnn eg 
Po-O—NO 
-oOnarPrm]! 


Shel. *0-9, SPACES OR TABS IN QUOTES’ 
AND THE OPTIONAL /QUAL IS ONE OR BOTH OF: 


/SIZE=NNN MAKE THE MESSAGE ‘'NNN'’ BYTES 
LONG. (DEFAULT SIZE IS 
Der ERMINED BY THE MESSAGE 


YPE. 
/COPY=NN COPY THis MESSAGE INTO THE 
BUFFER “‘NN’’ TIMES (DEFAULT 
F Gord} THE MESSAGE IN 
NN AND NNN ARE DECIMAL NUMBERS. 


NOTE: SET COMMANDS ADD MESSAGES TO THE LIST IN THE ORDER THEY'RE 
DEFINED. THE FIRST SET COMMAND OVERWRITES THE ITEP DEFAULT 


MESSAGE. 
DCLT> (A) ? SET EXPECT=TRANSMIT COPY THE TRANSMIT LIST INTO 
THE EXPECT LIST. 
DCLT> (A) ? SHOW EXPECTLIST PRINT THE SIZE AND TYPE OF THE 
MESSAGES IN THE EXPECT LIST. 
DCLT> (A) ? SHOW TRANSMITLIST PRINT THE SIZE AND TYPE OF THE 


MESSAGES IN THE TRANSMIT LIST 


CZKMSAO_KMS11-BD/BE DCLT 
23-DEC-82 


CZKMSA.P11 


13:54 


2.5.2 LINE SELECTION COMMANDS 


THE KMS11-BD/BE DCLT ‘yor s 
ae pa bE ae LINK ON ANY OF 


OPERATOR MuST ESTABLISH" A SPEC 
TESTED IN RESPONSE TO A DCLT> 


COMMAND — 


DCLT> (A) ? “LINE hh a N 
WHERE N = 0..7 

DCLT> (A) ? LINE KILL 

DCLT> (A) ? LINE SHOW 


2.5.3 OPERATOR ASSISTANCE COMMANDS 


HELP 


? 


DUMP SSSSSS-EEEEEE/B 


WHERE SSSSSS 
AND EEEEEE 
ARE OCTAL ADDRESSES 


MACY11 30A(1052) 23-DEC-82 


N 1 
SEQ 13 
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TEST PROGRAM TESTS A DDCMP 
INES SUPPORTED BY A 

Ae 
oT 


Pd 


TIME. THE TEST 
EST BEFORE A LINK CAN BE 


ESTABLISH N AS THE CURRENT 
LINE NUMBER. SUBSEQUENT De: 
COMMANDS APPLY TO LINE N 

DELETE THE CURRENT LINE NUMBER 


PRINT THE CURRENT LINE NUMBER 


PRINT HELP INFORMATION 
PRINT HELP INFORMATION 


“wo 
= 
— 
mm 
2 
“ 
nw 
oO 


LOCATION SSSSSS. 


AND /B IS OPTIONAL. THE DEFAULT IS ge WORDS. 
PRINT BYTES IF /B. 


NOTE: THE DUMP COMMAND IS USEFUL FOR EXAMINING MESSAGE DATA, 
STARTING ADDRESSES CAN BE FOUND IN THE EVENT LOG. 


“e 


B 2 
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SEQ 14 


2.5.4 RUN COMMANDS 


RUN MODES ARE DESCRIBED IN SECTION 6 
COMMAND DESCRIPTION 


RUN MODE=MTYPE/QUAL STARTS DCLT EXECUTING IN THE 
MODE SPECIFIED 


NOTE: THERE IS NO DEFAULT MODE. MODE=MTYPE MUST BE TYPED 
IN EACH RUN COMMAND. 


WHERE =MTYPE IS ANY ONE OF THE FOLLOWING: 
=ACTIVE (FORCES FA be Poss LOOPING) 


=PASSIVE (FORCES 

=RECEIVE (FORCES /NOECHO ,NO LOOPING) 

=LISTEN (FORCES /NOECHO ,NO LOOPING, /NOCHECK) 
=TRANSMIT (FORCES /NOECHO ,NO LOOPING, /NOCHECK) 
=TALK (FORCES /NOECHO ,NO LOOPING, /NOCHECK) 
THE KMS11-BD/BE DOES NOT SUPPORT DOWN-LINE-LOAD, 


A MODE AVAILABLE IN SOME DCLT PROGRAMS. 
AND OPTIONAL /QUAL IS ANY COMBINATION OF THE FOLLOWING: 


/CHECK/NOCHECK ENABLES/DISABLES CHECKING OF RECEIVED 
DATA AGAINST THE EXPECTED DATA 


IF BOTH NODES y A OCLT TEST RU TIVE MODE 
AND /MOCHECK IS ‘go HEN oe NED AS 


N 
R 
T 
L 
| 


<_—+ me 


ER OF . 
DATA CHECKING, THERE IS NO WAY FOR 
SAGES ARE EXPECTED 10 "et RECEIVE 


/STATUS/NOSTATUS ENABLES/DISABLES PRINTING PROGRAM 
STATUS MESSAGES. 


/ECHO/NOE CHO ENABLES/DISABLES RETRANSMISSION OF 
THE DATA RECEIVED IN PASSIVE MODE. 


NOTE: VALID ONLY FOR PASSIVE MODE. IF THIS SWITCH 
1S USED THE TRANSMIT LIST MUST BE REBUILT. 


C 2 
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/LOOP=LTYPE rs at fy ator TEST IN ACTIVE MODE 
TEST RUNS. THE ACTIVE MODE DEFAULT IS 
NO LOOPBACK. /LOOP IS IGNORED IN OTHER 
MODES. 
WHERE =LTYPE IS ONE OF THE FOLLOWING: 
=INTERNALTTL Fontes LINE UNIT INTERNAL LOOPBACK 
FOR THE ESABLISHED LINE. 
=CABLE proves . Bin ih RECORD FOR A TEST 
THAT IS RUN WITH A LOOPBACK gh 
INSTALLED. N THERE 1S NO EFFECT ON THE 
HARDWARE OR IN THE DCLT PROGRAM. 
THE FOLLOWING LOOP TYPES ARE NOT SU ** ORTED ¢! THE 
KMS11-BD/BE. THEY HAVE NO EFFECT IN THIS DCLT 
PROGRAM. 
=LOCALMODEM (NOT SUPPORTED BY KMS11-BD/BE) 
=REMOTEMODEM (NOT SUPPORTED BY KMS11-BD/BE) 
NOTE: THE KMS11-BD/BE DOES NOT REPORT MODEM STATUS. 
/PASS=NN sree ie it? fy a fE OF NN —- 
OF re TEST st END=OF =P ee F 
DEFAULT IS 1. IF NN = =1 THE TEST eu 


BE REPEATED UNTIL CNTRL=C 1S TYPED 


NOTE: ase SECTION 6.1 FOR A DESCRIPTION 
THE RUN MODES. 


SEQ 15 


Dd 2 
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SEQ 16 


EXIT COMMAND 


THE EXIT COMMAND RETURNS THE USER TO THE SUPERVISOR DR> 
PROMPT AFTER PRINTING A SUPERVISOR END OF PASS. 


DCLT> (A) ? EXIT 


2.5.5 PRINT COMMAND 


THE PRINT COMMAND INVOKES A REPORT COMMAND INTERPRETER. 
REPORT COMMANDS ARE USED TO PRINT THE EVENT LOG AND THE 
STATUS OF THE ESTABLISHED LINE. 


RPT> IS THE PROMPT FOR REPORT COMMANDS 


se eeieekeanoes 

RPT> HELP PRINTS HELP INFORMATION FOR RPT> 

RPT> ? PRINTS HELP INFORMATION FOR RPT> 

RP1> STATUSONL INE PRINTS STATUS INFORMATION FOR THE 
ESTABLISHED LINE 

RPT> LOG DUMPS THE EVENT LOG 

RPT> EXIT RETURNS TO THE COMMAND PROMPT WHERE 


THE PRINT COMMAND WAS TYPED. 
DCLT> OR Dk> 


— 2 
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SEQ 17 


2.5.6 DEFAULTS 


1F NO DCLT> SET COMMANDS HAVE BEEN USED THEN DEFAULTS 
EQIVALENT TO THE FOLLOWING COMMANDS APPLY. 


DCLT> (A) ? SET TRANSMITMSG= reer sizes Ae 0 
DCLT> (A) ? SET EXPECTMSG=1 TEP/SiZE=58/COPY=0 


THE DEFAULT COPY AND SIZE FOR EACH MESSAGE TYPE IS: 


ONES = /S1ZE=64/COPY=0 
ZEROES = /SIZE=64/COPY=0 
OALT = /SIZE=64/COPY=0 
TALT_= /S1ZE=64/COPY=0 
CCITT = /SIZE=64/COPY=0 
ALPHA = /SIZE=65/COPY=0 
TEP = /SIZE=58/COPY=0 
OPER. SPEC'D = /SIZE=LENGTH-OF -TEXT-TYPED-BE TWEEN-QUOTES/COPY=0 
DEFAULTS FOR THE DCLT> RUN COMMAND 


MODE : 
THERE IS NO DEFAULT MODE FOR THE DCLT> RUN COMMAND. 
A MODE=MTYPE MUST BE TYPED EACH TIME A RUN IS TYPED. 


DEFAULT QUALIFIERS FOR THE DCLT> RUN COMMAND ARE: 


/NOSTATUS/CHECK/NOE CHC/NOMODEM/PASS=1 
HENCE 


DCLT> (A) ? RUN MODE=ACTIVE 

IS EQUIVALENT TO: 

DCLT> (A) ? RUN MODE=ACTIVE/NOSTATUS/CHECK/NOECHO/NOMODEM/PASS=1 
THE KMS11-BD/BE DCLT PROGRAM HAS NO DEFAULT ESTABLISHED LINE. 


OTHER NOTES: 

we, ALWAYS RETURNS YOU TO ‘‘DR>* HL SUPERVISOR) 
<CR> 1S SEEN AS _A COMMAND TERMINAT 

*“*RUBOUT"" DELETE LAST CHAR, TYPED IN COMMAND STRING 


F 2 
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2.6 QUICK START=UP PROCEDURE (XXDP*+) 
TO START-UP THIS PROGRAM: 
1, BOOT XxXDP+ 


2. GIVE THE DATE AND ANSWER THE LSI AND S5OHZ CIF THERE 
IS A CLOCK) QUESTIONS 


3, TYPE "'R CZKMSA'', WHERE NAME IS THE NAME OF THE BIN OR BIC 
FILE FOR THIS PROGRAM 


4. TYPE ‘"START"’ 
5. ANSWER THE “‘CHANGE HW’ QUESTION WITH ‘‘Y"’ 
6. ANSWER ALL THE HARDWARE QUESTIONS. THE NUMBER OF UNITS 
THAT CAN DCLT CAN USE IS ALWAYS ‘1"’. 
WHEN YOU FOLLOW THIS PROCEDURE YOU WILL BE USING ONLY THE 
DEFAULTS FOR FLAGS. THESE DEFAULTS ARE DESCRIBED IN SECTION 2.3. 
7, AT THE "DCLT> (A) ?°' PROMPT, TYPE 
DCLT> (A) ? LINE ESTABLISH=N<CR> 


WHERE _N IS THE NUMBER IN THE RANGE 
0 TO 7 OF THE LINE TO BE TESTED 


DCLT> (A) ? RUN MODE=ACTIVE<CR> 
A SHORT FORM OF THESE COMMANDS CAN BE USED. 


DCLT> (A) ? L E=N<CR> 
DCLT> (A) ? R M=A<CR> 


WHEN YOU FOLLOW THIS PROCEDURE YOU WILL BE USING THE DEFAULT TRANSMIT 
AND EXPECTED MESSAGES. THE DEFAULT PASS COUNT AND ‘'RUN’’ QUALIFIERS 
ARE ALSO BEING USED. THESE DEFAULTS ARE DESCRIBED IN SECTION 2.5.3. 


SEQ 18 


G 2 


CZKMSAO_KMS11-BD/BE DCLT MACY11 30A(1052) 23=DEC-82 14:01 PAGE 20 
CZKMSA.P11 23-bEC- BS 13:54 : 


SeQ 1¥ 


3.0 ERROR INFORMATION 
3.1 TYPES OF ERROR MESSAGES 


THERE ARE THREE LEVELS OF ia MESSAGES THAT MAY BE ISSUED BY 
A DIAGNOSTIC: GENERAL pasie A D EXTENDED, GENERAL ERROR a 
ARE ALWAYS PRINTED UNCESS THE TER” 4% IS SET (SECTION 2.35). 


NAME TYPE NUMBER ON UNIT NUMBER TST NUMBER PC: XXXXXX 
ERROR MESSAGE 


o WHERE ; ts = DIAGNOSTIC NAME 
TYPE = ERROR TYPE (SYS FATAL, DEV FATAL, HARD OR SOFT) 


rin 
UNIT NUMBER = 0 = N_IS_LAST UNIT IN PTABLE) 
TST NUMBER = TEST AND SUBTEST WHERE ERROR OCCURRED 
PC:XXXXXX = ADDRESS OF ERROR MESSAGE CALL 


BASIC Bey MESSAGES ARE MESSAGES a! CONTAIN SOME ADDITIONAL 
INFORMATION ABOUT THE ER oe TH este RE ALWAYS PRINTED UNLESS 

TH R’’ OR ‘ IBE’ GS ARE SET (SECTION 2.3). THESE MESSAGES 
ARE PRINTED AFTER THE ASSOCIATED GENERAL MESSAGE. 


bbe y ERROR MESSAGES CONTAIN 9 44 yt ERROR gp 
SUCH _AS REGISTER CONTENTS OR GOOD/BAD DATA. Hay Fs ARE ALWAYS 
PRINTED UNLESS THE "IER", “IBE'’ OR “*IXE'’ FLAGS ARE SET (SECTION 2.3). 
THESE MESSAGES ARE PRINTED AFTER THE ASSOCIATED GENERAL ERROR 
MESSAGE AND ANY ASSOCIATED BASIC ERROR MESSAGES. 


3.2 SPECIFIC ERROR MESSAGES 
3.2.1 COMMAND LINE INTERPRETER ERRORS: 
ERROR MESSAGE : MEANING 


7ILL ~CMD=BAD SYNTX? A_COMMAND 4M “ ILLEGAL CHAR WAS 
TYPED = RETYPE THE COMMAND. 
VALID COMMANDS AND THEIR SYNTAX ARE 
SHOWN IN SECTION 2.5. 


?INCMPLTE CMD? a ed PART OF A COMMAND WAS LEFT 


2NUM TOO B1G? THE VALUE OF A NUMERIC STRING I 
COMMAND LINE WAS ag THAN 6 
OR 177777 OCTAL. ( > 16 BITS). 


BAD RADIX? A ‘8’ OR “'9°* WAS TYPED WHEN AN OCTAL 
“sting a EXPECTED, PROBABLY we 
WHEN TYPING A ° COMMAND WHERE 
OCTAL ADDRESSES ARE EXPECTED. 


CZ7KMSAO_ KMS11- 
23-DEC= 
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?""LOOP"’ VALID ONLY IN ACTIVE? THE ‘'/LOOP=..°° SWITCH WAS TYPED IN A 
oY YY COMMAND *puT THE MODE WAS NOT SET 
ACTIVE. MAINTENANCE LOOP 13 OMY 


POssiBie IF THE MODE OF OPERATIO 


2""ECHO"’ VALID ONLY IN PASSIVE? THE wit suitcn was bes A nt 
RUN COMMAND BUT THE MODE W T SET 
10 passive Ey tet or RECEIVED DATA 
1S ONLY POSSIBLE IF THE MODE OF 
OPERATION IS PASSIV 


2ILL CHR= ‘A=7,0-9,SP,TAB’’ ONLY? A reine TH TYPED wi TIN i Sai a 


' PACE OR TAB’. y 
COMMAND welts ONLY THESE CHARACTERS 
BETWEEN QUOTES. 


2"S1ZE=0" NOT VALID? A MESSAGE ZERO BYTES LONG CAN NOT BE 
BUILT. RETYPE THE COMMAND WITH A 
PYSTZE=NNN'.._IF NO “'/SIZE=" 1S TYPED 
A DEFAULT SIZE WILL BE USED. 


2? TRANSMIT AND EXPECT LIST MUST BE IDENTICAL FOR LOOP? 


If RUN COMMAND WITH “*/LOOP/CH"’ + TYPED 
TRANSMIT AND exec, LISTS MUST B 
EQUAL. USE “SE E=T'* COMMAND. 


7A LINE MUST BE ESTABLISHED TO wy ah 
A DCLT> RUN COMMAND WAS TYPED WITH NO 
LINE NUMBER ESTABLISHED. 
A DCLT> LINE ESTABLISH=N 
COMMAND MUST BE TYPED IN BEFORE A 
DCLT> RUN COMMAND CAN EXECUTE. 


?LINE NUMBER= XXX INVALID saaatiend y ont ARE VALID)? 
T> LINE ESTABLIS H=XXX WAS TYPED 
in’ wit XXX NOT IN THE RANGE 0..7. 


DOWN LINE LOAD NOT AVAILABLE —, THE gg ta 
A DCLT> MODE=DOWN WAS TYPED. 
THE KMS 11-BD/BE DOES NOT SUPPORT DOWN 


SEQ 20 
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SEQ 21 


LINE LOAD. 
3.2.2 DCLT ERROR MESSAGES: 


CLOCK NOT FOUND THIS MEANS THAT NO CLOCK WAS FOUND 
ON THE SYSTEM THE DIAGNOSTIC WILL 
STILL_RUN BUT NONE OF THE TIME OUT 
2OND IT IONS WILL OCCUR. 


BAD CLOCK = PROGRAM WILL HANG a" mF 3 
pats MEANS THAT EITHER NO CLOCK WAS 
ON THE SYSTEM OR THE ONE THAT WAS — 
pio Nar INTERRUPT WHEN ASKED TO DO A 


THE wneng WU Ri RUN, BUT ANY 


OF THE PROGRAM THAT TIMES Sine DEVICE 
WILL HANG IF THE NOEV VICE T MES our 
ALSO, THE EVENT LOG WILL CONTAIN 

ZERO EVENT TIME FOR ALL EVENTS YoGGeD. 


MAX, CHAR. MSG COUNT EXCEEDED - MSG. NOT BUILT !: 
THIS MEANS THAT THE TRANSMIT OR EXPECT 
BUFFER IS FULL. NO MORE MESSAGES CAN BE 
ADDED TO THAT BUFFER. 


BUFFER FULL = MSG. NOT BUILT !! 


THIS MEANS THAT THE LAST MESSAGE YOU 

TRIED TO ADD TO EITHER THE TRANSMIT OR 

EXPECT BUFFER CAUSED THE TOTAL — 

OF MESSAGES TO BE EX ED. 

od tere  F CAN BE ADDED TO THAT BUFFER. 
THE LIMIT 1S DETERMINED BY THE SIZE 0 

THE MESSAGE POINTER TABLE. THE LIMIT 


IS CURRENTLY 15. 
CHAR, COUNT EXCEEDS BUFF LIMIT = MSG TRUNCATED 


THIS sy: THAT THE Vast MESSAGE YOU 
ae TO ADD TO THE T ogy he. emeece 


R 
E LIMIT 
E aH a 4 TRUNCA TED TO COMPLETELY 
LL_ THE BUFFER. NO MORE MESSAGES CAN 
ADDED TO THAT BUFFER. 


RESPONSE TO DCLT> LINE 
WHEN NO LINE NUMBER IS 


NO LINE NUMBER IS ESTABLISHED 
COMMAND 


SHOW 
ESTABLISHED. 
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3.2.3 DEVICE ERROR MESSAGES: 


DATA COMPARISON DATA ERROR 

BYTE # IN MSG=XXX EXPTD=YYY RECVD=Z22 

XXK= OFF ser OF THAT BYTE FROM THE START 
OF THE COMPARE OR EXPECT MESSAGE. 

VYY= THE CONTENTS OF THAT BYTE IN THE 
EXPECTED MESSAGE 

222= THE CONTENTS OF THAT BYTE IN THE 
RECEIVED MESSAGE 


sete REPORTED, BUT TOTAL 
NUMBER OF MISMATCHES is” REPORTED 
BY ANOTHER ERROR. 


PRINTING THE ove LOG AND USING THE 

DCLT *‘DUMP*’ COMMAND WILL ALLOW YOU TO 
FIND THE ADDRESS OF THE MESSAGE AND 
EXAMINE IT. 


DATA COMPARISON DATA ERROR 
TOTAL MISMATCHES IN MSG = NN 


THIS MEANS THAT WHEN THE MESSAGE 
RECEIVED WAS COMPARED - pga THE 
MESSAGE THAT WAS EXPECTED, SOME OF 
THE CHARS. WERE NOT THE SAME. 


DATA COMPARISON LENGTH ERROR 
COMPARE COUNT= XXX RECEIVE COUNT= 222 


XXX= NUMBER OF BYTES IN THE COMPARE 
22Z7= NUMBER OF BYTES IN THE RECEIVED 
THIS Retry! THAT THE MESSAGE RECEIVED 


WAS A DIFFERENT LENGTH THEN THE MESSAGE 
THAT WAS EXPECTED. 


* NOTE ® = IN THE FOLLOWING ERROR DESCRIPTIONS X 
eeertere REFERS TO THE OCTAL CONTENTS OF THE DEVICE REGISTERS 
SPECIFIED. 
KMS FAILED TO START sTHIS ERROR INDICATES THAT THE 
SELO = MMMMKX SEL2 = XXMMMK DEVICE b18 NOT CLEAR BSEL2 

sWITHIN 100C (OCTAL) CLOCK TICKS 
sAFTER THE RUN BIT WAS SET. 
sMAY INDICATE A MICROPROCESSOR 
sFAILURE. 


SEQ 22 


K 
, SEQ 23 


~BD/BE DCLT MACY11 30A(1052) -DEC- 14:01 PA 4 
Se per Hbo 13:56 30 2) 23-DEC-82 0 GE 2 


— NO Onn § TON HAS BEEN ESTABLISHED 
IF THIS ERROR OCCURS 


KMS DID NOT RESPOND TO CSR COMMAND ;THIS ERROR INDICATES THAT THE 
SELO = XXXXXK SEL2 = XXXKKX [KMS FAILED TO RETURN AN EXPECTED 
;RESPONSE TO A oe ISSUED 
3BY THE PDP-11 HOST. 
WAITING TO COMPLETE pe vase INITIALIZATION 
SELO = MXXXMK SEL2 = XXXXXK ;THIS ERROR INDICATES THAT THE 
sKMS DID NOT RETURN AN le 
sCOMPLETED RESPONSE AFTER THE 
3PDP-11 ISSUED A COMMAND 
s INITIALIZE THE DEVICE. THIS 
Lima A MICROPROCESSOR 
sNOTE: NO CONNECTION HAS BEEN ESTABLISHED 
3 IF THIS ERROR OCCURS 


WAITING FOR START DDCMP ay ." esate 
SELO = XXXXXX SEL2 = XXX bi be so cor tte THAT THE 


a re ve HE KMS TO ENTER 


DCMP START S 
:NOTE: ne 1S POSSIBLE THAT NO CONNECTION 
3 HAS BEEN ESTABLISHED IF THIS 

; ERROR OCCURS 


TIME OUT WAITING FOR TX OR a i COMPLETE 


SELO = XXXXXX = =©6SEL2 = ;THIS ERROR IS THE MOST POPULAR 
:1T INDICATES THAT THE 6 
TIMER EXPIRED WHEN THE DEVICE 
sWAS EXPECTING TO GET A RX 
s TRANSMIT COMPLETE. AFTER THIS 
sERROR OCCURS THE PROGRAM WILL 
RESET THE TIMER AND LOOP AGAIN 
KMS DID NOT RESPOND TO RQ] sTHIS ERROR INDICATES THAT THE 
SELO = XXXXXM = =SEL2 = MXXXKX sDEVICE DID NOT RETURN RDYI IN 
sRESPONSE TO AN RQI BEFORE THE 
TIMER EXPIRED. THE TIMER iS 
; 2000 TICKS. 


L 2 
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ILLEGAL TRANSMIT COMPLETE s INDICATES DEVICE GOT A TX 
LINE NO BDL NO ;COMPLETE WHEN IT WAS NOT 
EXPECTING IT. 
ILLEGAL RECEIVE COMPLETE s INDICATES DEVICE GOT A RX 
LINE NO BDL NO ;COMPLETE WHEN IT WAS NOT 
EXPECTING IT. 
DDCMP RESTART RECEIVED sTHIS ERROR INDICATES THAT 
LINE NO = XXX 3A_DDCMP RESTART MESSAGE WAS 
sRECEIVED WHILE THE KMS WAS 
3; IN THE RUN STATE. 

KMS_ TIMEOUT wy'-y 7 tg TO TX ;THIS ERROR ARS THAT THE 
STATUS = LAGS = XXX KMS HAS TRANSMITTED A MESSAGE 
TEMP DATA = XXX LAST TX MSG = XXX AND IS WAITING FOR A RESPONSE 
ACKS RCVD = XXX MSGS RCVD = XXX 
NAKS SENT = XXX WAKS RCVD = XXX 

KMS TIMEOUT. NO ean tek at's — MESSAGE THIS ERROR a HL ae 
STATUS = HE KMS HAS TRANSMITTED A 
TEMP DATA = XXX LAST ar MSG = XXX SDDCMP START MESSAGE AND IS 
ACKS RCVD = XXX MSGS RCVD = XXX ;WAITING FOR A RESPONSE 
NAKS SENT = XXX WNAKS RCVD = XXX 

NOTE: THE TWO MESSAGES ABOVE INDICATE THAT “ KMS 


E TO CONTI SF se te at Cosme ON 


; S_UNABL 
: IT IS POSSIBLE THAT THE 
TX THRSHOLD REACHED 
LINE NO NAK REASON 
TEXT STATING REASON 
TX REJECTED BEFORE COMPLETION 
LINE NO BDL NO 
XXX XXX 


KMS TIMEOUT. WAITING — ll INPUT 
SEL® = XXXXXKX §=SEL2 = 


KMS TIMEOUT. CSR OUTPUT A ktertee 
SELO = XXXXXX = §=6SEL2 = 


LINE. 
NE IS NOT CONNECTED TO THE MODEM. 


THIS ERROR INDICATES THAT THE 
KMS HAS RECEIVED EIGHT SUCCUESSIVE 
;NAKS FROM THE OTHER END OF THE LINK 


sTHIS ERROR Tea eATtE THAT THE 

KMS HAS NOT See HA A tr ahi 
MESSAGE TRANSMISSION AND WIL 
:NOT ATTEMPT TO RETRANSMIT 


: THIS ERROR OCCURS AFTER THE 
KMS HAS RESPONDED TO AN RQI 
ISSUED BY THE HOST PDP-11 WITH 
sA_RDYI AND IS WAITING FOR THE 
3PDP-11 TO CLEAR RDYI. THE PDP-11 
CLEARS RDYI TO INDICATE THAT 
zA_ COMMAND IS SPECIFIED IN THE 
3CSR REGISTERS. 
sTHIS ERROR OCCURS AFTER THE 
3KMS_HAS SET wt TO INDICATE 
;THAT THE CSR REGISTERS CONTAIN 
[AN OUTPUT CONTROL MESSAGE FO 
3FOR THE HOST PDP=11, 
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SEQ 25 


4.0 PERFORMANCE AND PROGRESS REPORTS 
DCLT USES NE A eae 3 oC Ht aaa AN “‘END OF PASS"’ 


WHICH iS CAL A *‘DCLT END OF PASS'’. THE NUMBER OF na be PASSES" 
re a: RUN is" SPECIFIED. ey" THE *'/PASS=XXX"" sult CH ON DCLT 
COMMAN TOTAL NUMBER OF “‘DCLT ERRORS" ARE LOGGED IN 


ND, THE 
iN THE EVENT LOG WHEN EACH “DCLT PASS” IS COMPLETED. 
4.1 PRINTING OF EVENT LOG 


I 
“CIRCULAR QUEUE'’ STORAGE AREA CALLED THE ged LOG. THE LAST 


E G tI NT PERATORS 
CONSOLE BY GIVING A ‘PRINT’ COMMAND AT THE “DRO (DIAGNOSTIC SUPERVISOR) 
OR ‘'‘DCLT>"* (DCLT) LEVEL. THE PRINT COMMAND MUST BE FOLLOWED BY A LOG 
COMMAND. THE EVENTS ARE PRINTED IN A “‘LAST=IN 
FIRST-OUT’’ ORDER. 


EVENT care IS TYPED OUT AS MMM:SS:TT (LIKE 254:36:07) WHERE MMM,SS,TT 
REPRESENT THE NUMBER OF ae eg SECONDS, CLOCK ime THE LAST 


IS 
WHILE a PROGRAM IS FETCHING DCLT COMMANDS FROM THE OPERA 
IT SHOULD ALSO BE NOTED THAT THERE ARE ONLY 8 BITS AVAILABLE Rio STORE 
RELATIVE MINUTES SO “‘TIME’’ WILL WRAP TO 000:00:00 AFTER 256:59:59. 


A START OR RESTART COMMAND AT THE ‘'DR>** LEVEL UI TIAL AES THE EVENT 
LOG. THEREFORE IT IS WISE TO DO A ‘‘PRINT’ ‘LOG’ AT THE ‘'DR>"* LEVEL 
BEFORE GIVING A “'START*’ OR “'RESTART". 


THE TYPES OF EVENTS KEPT IN THE EVENT LOG ARE: 


TRANSMIT MESSAGE QUEUED: 
EVENT TIME, ADDRESS OF TRIBUTARY TO/FROM 
ADDRESS OF 1ST BYTE OF ME 
NO. OF BYTES, MODEM STATUS AT THAT TIME. 
; TRANSMIT IRESEAGE COMPLETE 
* ; EVENT TIME, ADDRESS “oF TRIBUTARY TO/FROM 
; ADDRESS OF 1ST BYTE OF MESSAGE, 
OTA NO. OF BYTES, MODEM STATUS AT THAT TIME. 
RECEIVE SPACE @ UEUED: 


EVENT TIME, sere Ss OF TRIBUTARY TO/FROM 

ADDRESS OF 1ST BYTE OF ME 

TOTAL gO, oe BYTES, MODEM STATUS AT THAT TIME. 
RECEIVE MESSAGE COMPLETED: 

EVENT TINE. ADDRESS OF TRIBUTARY TO/FROM 

telat “ft {st BYTE OF MESSAGE, 

TO NO. OF BYTES, MODEM STATUS AT THAT TIME. 
DATA COMPARISON STARTED: 


N 2 
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rm 

i 
mn 
2a 
_ 
~ 
~ 
= 


OF TRIBUTARY TO/FROM 
E OF RECEIVED MSG. 
TOTAL NO. IN RCV. MSG., TOTAL NO. OF BYTES 
DATA COMPARISON DATA ERROR: 
EVENT TIME,ADDRESS OF TRIBUTARY TO/FR 
ADDRESS OF 1ST BYTE OF RECELV ED MSG., 
TOTAL LAND. TES IN RCV. MSG., TOTAL NO. OF 
DATA COMPARISON LENGTH ERROR: 
EVENT TIME,ADDRESS OF TRIBUTARY TO/FROM 
ADDRESS OF 1ST BYTE OF RECEIVED MSG., 
TOTAL L NO. oF BY FES IN RCV. MSG., TOTAL NO. OF BYTES 


IN EXPE 

DEVICE INIT AND SETUP: 
EVENT TIME, MODE OF OPERATION, TYPE OF MAINTENANCE 
LOOP, “DCLT': PASS COUNT, “RUN” PARAMETERS 


DEVICE ERROR: 
EVENT TIME, DEVICE ERROR ag tte CONTENTS OF TwO 
REGISTERS RELATING TO THE ERROR 


END OF PA Ss: 
TIME, “‘DCLT’’ PASS COUNT, "DCLT’ ERROR COUNT, 
OOF * THRESHOLD ERRORS,# OF TX THRESHOLD ERRORS 


NOTE = RX big AND TX THRESHOLDS eet IF 
ONE STATION IS STARTED BEFORE THE OTHER 
OR IF LINKS ARE RUN AT HIGH SPEED 


SEQ 26 
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SEQ 27 


4.2 OPERATOR STATUS MESSAGES 


0 ESSAGES TO THE 
ATOR. THESE MESSAGES ARE INTENDED TO 0 
THE DCLT PROGRAM IS CURRENTLY DOING. BELOW 
MIGHT BE PRINTED AND THEIR MEANING: 


MESSAGE MEANING 

TXQ DEVICE IS ABOUT START TRANSMITTING A MESSAGE 

TXC TRANSMISSION OF MESSAGE COMPLETED 

RxQ DEVICE HAS QUEVED SPACE TO RECEIVE/ COMPLETED RECEIVE 
ERR DEVICE ERROR HAS OCCURRED 

INI DEVICE ABOUT TO BE INITIALIZED 

CMP ABOUT TO DO DATA CHECKING OF RECVD VS. EXPTD DATA 

CML LENGTH ERROR OCCURRED DURING DATA COMPARISON 

CMD DATA ERROR OCCURRED DURING DATA COMPARISON 

EOP ‘END OF PASS 


CZ7KMSAO “tec” 
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4.3 PRINTING LINE STATUS 
INTHE DEVICE WHEN DCLT PROGRAM READS THE LINE STATUS MAINTAINED 
A peLT> “RUN gee COMPLE TES EXECUTION 
COMMAN PERFORMED 


OMMAND LEVEL OCCURS 
~ HAS BEEN SUBMITTED FOR TRAN Ser tetone 


=—0—- xe 

x= 
_ 
~” 
P 
o 
s> 

~S 
= 
mm 
i=] 
ov 
cr 
—@z 
vu 


READ AND PRINT 
THE LAST RECORD 


A LINE sre REPORT INCLUDES: 


LINE STATUS BYTE: 
BITO = 1 LINE ENABLED 
= 0 LINE DISABLED 
BIT1 = 1 MOP MODE eeeNOT SUPPORTED IN KMS11-BD/BE DCLT 
= Q DDCMP PROTOCOL ENABLED 
Bite = 1 TRANSMIT A 
BITS = 1 RECEIVE ACTIVE 
BIT4 = 1 START PENDIN 
BITS = 1 REP PENDING 
BIT6 = 0 Mea DUPLEX 
= 1 HALF DUPLEX **NOT SUPPORTED IN KMS11-BD/BE 
BIT7 = 1 TRANSMIT SELECTED 
LINE FLAGS BYTE: 
BITO = 1 START RECEIVED 
BIT] = 1 NAK RECEIVED 
Bits = 1 REP RECEIVED 
BITS = 1 CONTROL MESSAGE PENDING 
BIT4 = 1 ACK PENDING 
BITS = 1 STACK 13 bate 
BIT6 = 1 TX TIMEOUT 
BIT? = 1 START PENDING 
TEMP DATA BYTE: 
NUMBER OF LAST MESSAGE TRANSMITTED (1 BYTE) 
NUMBER OF ACKS RECEIVED (1 BYTE) 
NUMBER o tt a 3 RECEIVED (1 erie) 
NUMBER AKS TRANSMITTED (1 BYTE) 
NUMBER OF NARS RECEIVED (1 BYTE) 


SEQ 28 
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5.0 DEVICE INFORMATION TABLES 

THIS IS_ THE DEFAULT Perot ate P-TABLE. THE VALUES AND 

SIZE ARE USED AS A ‘‘TEMPLATE’’ FOR CREATING ACTUAL P=TABLE 
ENTRIES AND Ne DEFAULT VALUES PROVIDED FOR THE OPERATOR. 

SEE SECTION 2.4 FOR AN EXAMPLE OF THE HARDWARE QUESTIONS. 

THE NUMBERS IN BRACKETS ( I.E. C103) INDICATES THE OFFSET OF THE 
WORD INTO THE HARDWARE P-TABLE. THE OFFSETS MUST MATCH THE ot late 
OFFSETS USED IN THE HARDWARE PARAMETER CODING SECTION WHERE THE 
“GET PARAMETER'’ CALLS ARE USED TO FILL THE P-TABLE. 

-WORD 164100 433 CSR_ ADDRES 

-WORD 400 C2] INTERRUPT VECTO 

WORD 240 304] INTERRUPT PRIORITY (5) 

-WORD 164110 3C6J MODEM CONTROL CSR ADDRESS 


SEQ 29 
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SEQ 30 


6.0 MODE AND MESSAGE DESCRIPTIONS 
6.1 MODE DESCRIPTIONS 
6.1.1 TRANSMIT MODE 


THE TRANSMIT LIST OF MESSAGES IS TRANSMITTED WITHOUT EXPECTING ANY DATA 
TO BE RECEIVED. 


6.1.2 RECEIVE MODE 


SPACE 1S QUEUED FOR THE DEVICE TO RECEIVE MESSAGES. 

AFTER RECEIVING AN EXPECTED’ NUMBER OF MESSAGES, THE DATA RECEIVED 
CAN BE COMPARED AGAINST A LIST OF “EXPECT TO RECEIVE” MESSAGES 

IF DATA=CHECKING IS ENABLED. 


6.1.3 PASSIVE MODE 


EVERY TIME A ey IS pe ce vee. A gt ny F is TRANSMITTED 
DATA CHECKING CAN BE DONE ON THE RECEIVED A. THE "'/ECHO, /NOECHO" 
ENABLES/DISABLES THE RETRANSMISSION OF THE OOATA RECEIVED. 


6.1.4 ACTIVE MODE 


ST OF MESSAGES JS TRANSMITTED AND MESSAGES ARE RECEIVED: 

R RECEIVING AN “EXPECTED” NUMBER OF MESSAGES. THE, DATA RECEIVED 
BE COMPARED. AGAINST A LIST OF EXPECT 10 RECEIVE" MESSAGES 
ATA=CHECKING IS ENABLED. 


6.1.5 DOWN-LINE-LOAD 


THE KMS11-BD/BE DOES NOT SUPPORT DOWN LINE LOAD 
6.1.6 TALK AND LISTEN MODE 


So me 


6.1.6.1 TALK MODE 


NEED TO BE ‘EXIT’, MORE rani CAN BE ADDED SO THAT A MESSAGE 
MAY BE SENT AND THE MODE SWITCHED ALL AT ONCE. FOR EXAMPLE: 


TLK> EXIT ALL OF THIS LINE IS SENT THEN MODE SWITCHED 
6.1.6.2 LISTEN MODE 


CZKMSAO_KMS11- 
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TEN’ END OF THE LINK PRINTS ALL OF THE pe ssort 
BY phy DEVICE ON Hes OPERATOR'S CONSOLE IF THE MESSAGE 
bison EXIT’ MESSAGE, THEN THE NODE ENTERS ‘‘TALK'’ MODE, ’ 


SSAGE" IS A Aeecace WHOSE FIRST FOUR EHARACTERS ARE “EXIT'’. 


SEQ 31 
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SEQ 32 


6.1.7 MAINTENANCE “‘LOOP’’ MODES 


REMEMBER THAT THE WHENEVER A ‘'RUN’’ COMMAND IS TYPED, THE. pera! Is 
NO LOOPBACK AND THAT A LOOP MODE MUST BE SPECIFIED GY A "'/LOOP=.."" 
If A LOOP MODE IS DES 

LOOP MODES ARE ONLY VALID IF THE MODE TO RUN IS ACTIVE 


INTERNALTTL LOOPS DATA INTERNALLY IN THE LINE UNIT 


THE FOLLOWING LOOP MODES HAVE NO EFFECT. IN THE KMS11-BD/BE DCLT 
PROGRAM THEY ARE EQUIVALENT TO NO LOOPBACK. 


CABLE HAS NU EFFECT BUT MAKES A NICE BOOKKEEPING 
reAT uae WHEN TESTING WITH A TURNAROUND 
CONNECTOR. 
LOCALMODEM NOT SUPPORTED BY KMS11-BD/BE 
(ALSO CALLED ANALOG- LGOPBACK) 
REMOTEMODEM NOT SUPPORTED BY KMS11-BD/ 


BE 
(ALSO CALLED DIGITAL=LOOPBACK) 


NOTE THAT THE ACTIVE MODE OF THE DCLT> RUN COMMAND CAN BE USED WITH 
AN H3256 TURNAROUND CONNECTOR. 


THE oe var CONNECTOR CAN BE wee 
3° ON THE pisteieulies & ANEL 
- = THE FAR END OF A CABLE CONNECTED TO THE DISTRIBUTION 


PANEL 
3. ON THE FAR END OF A CABLE CONNECTED TO A MODEM OR 
MODEM ELIMINATOR. 


THE COMMAND: 
DCLT> (A ) ? R MODE=ACTIVE/L=CABLE 


SIN SED. RECORD THAT LOOPING VIA A TURNAROUND CONNECTOR IS BEING 
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SEQ 33 


6.1.8 MODE SUMMARY TABLE 


THE rOLLOWING TABLE SUMMARIZES THE MODES THAT CAN BE RUN TOGETHER 
os" te thes IS RUNNING ON TWO PROCESSORS (ONE AT EACH 
c 


‘STATION A STATION A STATION B 

jwos NODE ‘‘/LOOP’ ALLOWED? ‘REMOTE’ NODE 
i TALK NO LISTEN® RECEIVE i 
‘LISTEN NO TALK®, TRANSMIT 
i TRANSMIT NO RECEIVE®, LISTEN ! 
iRECEIVE NO TRANSMIT®, TALK 
iPASSIVE NO ACTIVE? i 
‘ACTIVE YES ACTIVE? i 
‘ACTIVE YES PASSIVE® 


#= MOST LIKELY TO BE IN THAT MODE 


6.2 MESSAGE DESCRIPTIONS 


NAME DESCRIPTION 
ZEROES MESSAGE OF ALL 0°S (00000000,00000000,00000000....) 
ONES MESSAGE OF ALL Te CUUVVATAT TATA Tddddddd, eee) 
1ALT MESSAGE OF Lt MARTING 1°§ (10101010,10101010,....) 
OALT ES SAGE OF F ALTERNATING 0°S (01010101,01010101,.... 
CCITT 12-8 . 511 BITS) TEST PATTERN 
ITEP “INTERPRG Esson | T PROGRAM'S (ITEP) MESSAGE 1(DP1:) 
(<177><177>/$A THE QUICK BROWN FO FO X_ JUMP D OVER THE 
LAZY DOG.<15><12><001><177><177><177><177>) 
ALPHA AL PHA-NUMERICS COR FUTURE COMM TURNAROUND MSG) 
(#$'"" (AMPERSAND) '() #4, -.0123456789: ; <=> 2@ABCDEF GHI JK 
LMNOPORSTUVWKYZ/L\)*_%)5 
OPERATOR=SPECIF IED vac 0-9, SPACES,T 
THESE ARE THE Saito res THAT CAN 


ar. TYPED BETWEEN QUOTATION MARKS ("*..°*) 
TO SPECIFIY A UNIQUE MESSAGE. 


: 3 
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SEQ 34 


7.0 OTHER INFORMATION 


7.1 INTERFACING TO AN "‘ITEP’’ NODE 


THIS DCLT WILL INTERFACE ONLY TO THE ITEP FOR DMC. 
AND THE FOLLOWING TABLE APPLIES TO THE ITEP NODE: 


ITEP NODE DCLT NODE 

ONE -WAY-OUT were ie OR ai Ny 
ONE -WAY-IN Han SMIT OR T 
INTERNAL LOOP CTIVE 

EXTERNAL LOOP ACTIVE OR PASSIVE 


NOTE: WHEN gove ye TO ITEP THE RX BUFFER ON THE 

ITEP SIDE IS ONLY 10 BYTES LARGER THAN THE TX BUFFER YOU 
HAVE SELECTED, SO BE SURE 10 SET THE TX BUFFER ON THE DCLT 
NODE ACCORDINGLY. 


wee ITEP_IS IN A MODE — IT IS EXPECTING TO BE TRANSMITTED 
A SOFT ERROR ‘BASE TABLE ERR COUNTS NON-ZERO" WILL OCCUR. 
THis IS DUE TO THE SPEED *DIFFERENCES IN THE SOFTWARE. 
WHEN DCLT IS _IN LISTEN MODE THE RX BUFFER IS ONLY 
1 BYTES LONG THEREFORE DO NOT ace THE DCLT NODE 
4 ee 3 FROM THE ITEP NODE OR A “‘LOST DATA’ ERROR WILL 
BE SURE ITEP NODE HAS INCORPORATED PATCH FROM DEPOM MD-11-DZDMO-Al 


ITEP NODE SHOULD ALWAYS BE RUN WITH SW 4 = 10 0 


CZKMSAO_KMS11-BD/BE DCLT 
CZKMSA.P11 23-bEC- BS 13:54 


7.2 TROUBLESHOOTING HINTS 


LISTED BELOW ARE SOME SETUPS THAT COULD ¢. see 
THESE an eke 1"? we THE ONLY WAYS DOCLT 

DCLT IS M TO BE A VERY FLEXIBLE TOOL! att: A) 
GIVE SOMEONE "or TOO FAMILIAR WITH DCLT A PLACE T 
REM 
EVENT 
EvE 


Sat THAT THE PRINTING OF STATUS MESSAGES AND P 
LOG CAN PROVIDE A LOT OF INFORMATION ABOUT TH 


J 3 
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I OF THE 
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es ee 
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NTS AND HOW THE DEVICE AND LINK ARE BEHAVING. 


7.2.1 A SAMPLE TEST SEQUENCE AS SEEN 
THE KMS11-BD/BE END OF A LINK. 


7.2.1.1 INVOKE AND START THE DCLT TEST 
BOOT XXDP+ 
oR CZKMSA 
DR>START 
CHANGE HW (L) ? Y<CR> 
# UNITS (D) ? 1<CR> 
UNIT 0 


FULL DUPLEX ONLY 


5 2?<CR> 
DM11-BA 164110 ? 
THIS IS DCLT, TYPE “‘H’ OR 

MODE =ACTIVE/PAS 


DCLT> (A) ? 


ACTIVE AND “*/NOCHECK"’ IS USED, 
FINED AS RECEIVING 1 ats wes) 

E yes LIST. WITH NO DATA 
S NO WAY FOR DCLT TO KNOW HOW 
SHOULD EXPECT TO RECEIVE. 


FROM 


PROGRAM 


0) by he 2<CR> 
DRESS; ( (0) 200 2<CR> 
) 


<CR> VALUES 


H oR FOR DETAILS 
oe SATUS TC HECK/NOECHO/NOMODEM 


SEQ 35 


kK 3 


SEQ 36 
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7.2.1.2 oe A yes! PASS IN ACTIVE MODE WITH INTERNAL LOOPBACK 
WITHOUT LEEK KING THE RECEIVED MESSAGE. 
PRINT STATUS AS THE PASS PROGRESSES. 
DCLT> (A) ? L E=0 
DCLT> (A) ? R M=A/L=I1/STA/NOCHECK 
a COMMAND SEQUENCE MEANS: 

C ND L E=0 ESTABLISHES LINE 0 AS THE LINE TO BE USED. 
THENS1 1 -80/BE DCLT CAN TEST ONLY ONE LINE IN A DCLT> RUN COMMAND. 
HE PROGRAM CAN BE USED TO TEST ALL EIGHT LINES ONE AT A TIME. 

THE LINE TO BE_TESTED MUST BE ESTABLISHED BY A DCLT> L E=x 
(WHERE X = 0..7) PRIOR TO TYPING THE DCLT> RUN COMMAND. 
LINE 0 IS USED were AS_AN EXAMPLE. REPLACE 0 WITH THE NUMBER 
IN THE RANGE 0..7 FOR THE LINE YOU ARE TESTING. 
THE COMMAND R M=A/L=I1/STA/NOCHECK SETS THE RUN MODE TO ACTIVE, THE 
LOOP TYPE TO INTERNAL, REQUESTS STATUS MESSAGE PRINTING AS THE RUN 
PROGRESSES AND DISABLES CHECKING OF THE RECEIVED MESSAGE. 
THE DEFAULT ITEP MESSAGE (THE QUICK BROWN...) WILL BE TRANSMITTED. 
A RECEIVED MESSAGE WILL BE ACCEPTED BUT NOT CHECKED. 


IF THE RUN IS SUCCESSFUL YOU SHOULD SEE: 
INI RxXQ TXQ TXC EOP 
MODE=ACTIVE/LOOP=INTERNAL/PASS=00000 
/STATUS/NOCHE CK/NOE CHO/NOMODEM 
DCLT> (A) ? 


. ub bettie ro INDICATES THAT THE KMS11-BD/BE CAN as at 
RECEIVE. ANY ERRORS REPORTED WILL PROBABLY BE DUE TO 

INCORRECT DEVICE ADDRESSES BEING USED OR A FAULTY DEVICE. 

TO . + V0 FOR THESE RETURN TO SUPERVISOR COMMAND LEVEL 


BY TYPING: 
DCLT (A) ? EXIT 


CNTRL/C 
CHECK -105RESEES oy BY <= 
RUN KMS11-BD/BE DIAGNOSTICS TO CHECK THE DEVICE. 


:. 
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SEQ 37 


7.2.1.3 om SEVERAL PASSES WITH LOOP TYPE = INTERNAL AND 
CHECKING OF THE RECEIVED MESSAGE ENABLED. 


DCLT> (A) ? R M=A/L=I/STA/CHECK/PASS=3 
iy A COMMAND MEANS: 


THE DEFAULT (ITEP) MESSAGE WILL * TRANSMITTED ONCE PER PASS. 
— WILL BE RECEIVED PER PASS. 


lar oni TRANSMITTED WILL BE LOOPED BACK INTERNALLY WITHIN THE 
Lis UNIT AND ACCEPTED AS RECEIVED MESSAGES. 


/S 
oraete MESSAGES WILL BE PRINTED AS THE RUN PROGRESSES. 
misare RECEIVED WILL BE CHECKED AGAINST THE DEFAULT (ITEP) 


/PASS= 
THIS SEQUENCE WILL BE EXECUTED THREE TIMES. 


IF SUCCESSFUL YOU SHOULD SEE: 


INI RXQ = TXQ Ha. ~ EOP RxXQ TxXQ 
TxC CMP EOP RxXQ TxC CMP EOP 
MODE ACTIVE /LOOP= INTERNAL /PASS= 60000 

/STATUS/CHE CK /NOECHO/NOMODEM 
DCLT> (A) ? 
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7.2.1.4 RUN IN ACTIVE MODE WITH A TURNAROUND CONNECTOR 
PUT AN _H3256 ae ye CONNECTOR ON THE DISTRIBUTION PANEL PLUG 
FOR THE ESTABLISHE Ay (THE LEFTMOST PLUG AS YOU FACE THE PANEL 
1S THE PLUG FOR LINE 

DCLT> (A) ? R M=A/L=C/PASS=3 


DEFAULT MESSAGE 
ND _AT TH 


THIS IS $ ACK TEST. THE 

1S TRANSMITTED FROM THE TRANSMIT BUFFER, TURNED AROU 

CONNECTOR, RECEIVED AND pn KEe AGAINST THE EXPECTED a he my pone © 
THE COMMAND WILL INITIATE TRANSM Baan ONLY IF A Lo S PREVIOUSL 
BEEN ESTABLISHED WITH A Bei t> L_E=X_ (WHERE X = 0..7) COMMAND. 

L=C IN THE COMMAND STANDS FOR LOOP TYPE = CABLE. IT IS INCLUDED 

AS A RECORD KEEPING NICETY. IN KMS11-BD/BE DCLT 

DCLT> (A) 2? R M=A/L=C IS EQUIVALENT TO DCLT> (A) ? 

STATUS AND CHECKING ARE IS STILL ENABLED. THE MOD must Ci ae eeeeree 
SPECIFIED IN EVERY DCLT> RUN COMMAND. LOOPTYPE AND THE STA 

CHECK AND ECHO QUALIFIERS RETAIN THEIR SETTINGS UNTIL EXPLICTILY 
CHANGED IN A DCLT> RUN COMMAND OR UNTIL A DR> START COMMAND RESETS 


ALL DEFAULTS. 
IF THIS TEST IS SUCCESSFUL YOU WILL SEE: 


INI RxXQ = TXQ hae EOP RXQ TXQ 
TxXC CMP EOP  RxXQ TxC =CMP CE OP 
MODE=ACTIVE/OOP=CABLEZP ASS=00000 
/STATUS/CHECK/NOECHO/NOMODEM 
DCLT> (A) ? 


THE SAME TEST ~ BE REPEATED WITH THE TURNAROUND CONNECTOR 
AT THE END OF A CABLE PLUGGED TO THE DISTRIBUTION PANEL. 


If THESE wears RUN SUCCESSFULLY YOU CAN yt THAT THE 
HOST COMPUTER ON WHICH KMS11-BD/BE DCLT IS RUNNING AND ITS 
KMS11-BD/BE ARE TRANSMITTING AND RECEIVING SUCCESSFULLY. 


SEQ 38 


nN 3 
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SEQ 39 


7.2.2 TRANSMIT ON ONE NODE RECEIVE ON THE OTHER 


NOW TRY TRANSMITTING FROM ONE END AND RECEIVING ON THE 
OTHER. MAYBE WITH NO DATA CHECKING AT FIRST TO ESTABLISH 
IF THE LINK IS WORKING. POSSIBLE COMMAND SEQUENCES ARE: 


NODE A NODE B 
DCLT> (A) ? CLE DCLT> (A) ? CLE 
DCLT> (A) 2? CLT DCLT> (A) ? CLT 
DCLT> (A) ? SE_T=1ALT/S=250 
e DCLT> (A) 2? L E= 
DCLT> (A) ? R M=TR/PAS=3 DCLT> (A) ? R M=R/NOCH/PAS=3 


* NOTE: THIS COMMAND IS SPECIFIC TO KMS11-BD/BE DCLT 
WHAT THIS SEQUENCE MEANS: 


ft E Tee THE EXPECT LIST 
slat tee THE TRANSMIT LIST 


LT 
E Ts 1ALT/S= 
ETS THE Levee IST ON NODE A TO BE 1 MESSAGE 
. LENGTH OF 250 BYTES AND DATA OF ALTERNATING 


L ST ABL {SHES LI LINE — 1 AS THE LINE TO TEST. 
R M=TR/PAS=3" rut ft : HE_RUN MODE OF NODE A TO TRANSMIT 


COUNT TO 
R M=R/NOCH/PAS=3 SETS THE RUN MODE OF NODE B 
TO BE RECEIVE, NO DATA CHECKING IS TO BE DONE,AND 
THE PASS COUNT IS SET TO THREE. 


WHAT YOU SHOULD SEE AFTER ENTERING THE RUN COMMAND 
IF THINGS ARE RUNNING CORRECTLY : 


FOR NODE A: 
fet: TXQ TXC EOP TXQ TXC EOP TXO 


MODE =TRANSMI T/PASS=00000 
/STATUS/NOCHE CK/NOE CHO/NOMODEM 


DCLT> (A) ? 
FOR NODE B: 
IN] RXQ EOP RXQ EOP RXQ EOP 
MODE =RECE I VE/PASS=00000 
/STATUS/NOCHE CK/NOE CHO/NOMODEM 


DCLT> (A) ? 
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NOW TRY DOING DATA CHECKING ON THE MESSAGE(S) BEING 
TRANSMITTED. POSSIBLE COMMAND SEQUENCES ARE: 
SE _E=1ALT/S$=250 

R M=TR/PAS=3 R M=R/CH/PAS=3 
WHAT THIS SEQUENCE MEANS: 

THE “SE E= se Ae 250°* LINE MUST ms ADDED HERE 

TO SET UP THE “EXPECT’’ LIST ON THE RECEIVE NODE 

$0 . Bt KNOW WHAT TO COMPARE AGAINST. 

THE CHANGE IN THE RUN COMMAND IS FROM ‘'NOCH’’ TO ‘’CH"’ 


THE ncn ENABLES DATA CHECKING 


WHAT YOU SHOULD SEE AFTER ENTERING THE RUN COMMAND 
If THINGS ARE RUNNING CORRECTLY : 


NODE A: IS THE SAME AS ABOVE. 


NODE B: 
a RXQ CMP EOP RXQ CMP EOP RXQ 


MODE= Rear: A 7 00000 
/STATUS/NOCHE CK/NOE CHO/NOMODEM 
DCLT> (A) ? 


NOW RUN THRU THE SEQUENCE AGAIN WITH NODE A RECEIVING 
te TO CHECK OUT THE OPPOSITE DIRECTION 


SEQ 40 
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SEQ 41 


7.2.3 
ONE NODE ACTIVE THE OTHER NODE PASSIVE 


NOW TRY Ts ONE NODE IN ACTIVE MODE WHILE THE OTHER 
END wae IN PASSIVE. DATA C ad Sd Nae SHOULD BE TURNED OFF 
IF THE MESSAGE LISTS ARE NOT THE SAME. 

POSSIBLE COMMAND SEQUENCES ARE: 


NODE A NODE 6B 

DCLT> (A) 2? CLE heh (A) ? CL 3 

DCLT> (A) ? CLT DCLT> (A) ? CL_T 

DCLT> (A) ? SE _T=CCITT/S=10/C=2 DELT> (A) ? SE T=1ALT/S=20/C=2 
e DCLT> (A) ? L E= 

DCLT> (A) ? R =ACT/NOCH/PAS=3 DCLT> (A) ? R M=P/NOCH/PAS=3 


* NOTE: THIS COMMAND IS SPECIFIC TO THE KMS11-BD/BE 
WHAT THIS SEQUENCE MEANS: 


THE EXECUTION OF THIS SEQUENCE es td THE FOLLOW 
THINGS TO HAPPEN ON NODE A. THE TRANSMIT AND ng 
IN 
] 


ME BYTES ath THE DATA USED 
TRANSMIT Hy Se gg IS THE CCITT PATTERN. LINE 1 
SST Ae eee AS THE LINE TO TEST 

THEN NODE A IS RUN IN ACTIVE MODE 
WITH DATA CHECKING DISABLED AND THE PASS COUNT 
SET TO THREE. NOTE STATUS WOULD STILL B 
PRINTED IF THE PREVIOUS SEQUENCES HAD BEEN RUN, 
IF YOU ARE RUNNING FROM LOAD TIME YOU WOULD HAVE 
TO 4 A "'/STA TO THE RUN COMMAND LINE. 
NODE B: THE TRANSMIT AND EXPECT LISTS ARE INTIALIZED 
THEN THE TRANSMIT LIST IS SET TO 3 MESSAGES OF 

#9 BYTES EACH. THE DATA FOR EACH MESSAGE IS ALTERNATING 


*S 
RUN IN PASSIVE MODE vite DATA CHECKING DISABLED 
AND THE PASS COUNT SET TO 3. 


WHAT YOU SHOULD SEE AFTER ENTERING THE RUN COMMAND 
If THINGS ARE RUNNING CORRECTLY : 


FOR NODE A: 


IN] RXQ TXO TXC TXO RXQ TXC TXO 
RXQ TXC EOP RXO 129 RXC TXC TXO 
RXQ TXC TXQ RXO TXC EOP RXQ TXO 
RXQ TXC TXQ RXQ TXC TXO RKQ TXC 


MODE = webby 14575 17 00000 
ATUS /NOCHE CK /NOE CHO/NOMODEM 
DCLT> (A) ? 


dD 4 
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FOR NODE B: 
int Ter fs TXC RXQ TXO TXC RXO 
MODE= PASSIVE/PASS= 00000 
STATUS/NOCHECK/NOECHO/NOMODEM 
DCLT> (A) ? 


NOW USE DATA CHECKING WITH THE “EXPECT MESSAGE LISTS'’ SET 
UP APPROPRIATELY. ANOTHER VARIATION IS TO HAVE LARGE SIZE 
MESSAGES ON ONE SIDE WITH SMALL MESSAGES ON THE OTHER. 


THEN REVERSE THE SETUP SO THAT THE NODE RUNNING IN ACTIVE 
1S RUNNING IN PASSIVE AND VICE VERSA. 


SEQ 42 
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SEQ 45 


7.2.4 BOTH NODES ACTIVE 


NOW BOTH NODES CAN BE RUN _IN ACTIVE yA. DATA CHECK 


AC ING ON, 
ee COULD BE TURNED OFF IF YOU'RE NOT INTERESTED 
NODE A NODE 8 
DCLT> (A) 2? CLE DCLT> (A) 27 CLE 
DCLT> (A) ? CLT DCLT> (A) ? CL T 
DCLT> (A) ? SE T=OALT/S=10 DCLT> (A) ? SE E=OALT/S=10 
DCLT> (A) ? SE bag LF LATA DCLT> (A) ? SE E=CCITT/S=20 
DCLT> (A) ? SE T=ALPHA/S=30 DCLT> (A) ? SE E=ALPHA/S=30 
DCLT> (A) ? SE E=ZERO/S=11 DCLT> (A) ? SE T=ZERO/S=11 
DCLT> (A) ? SE pe tyhat DCLT> (A) ? SE rooms 3/256 
DCLT> (A) ? SE E=ITEP/S=31 DCLT> (A) ? SE T=ITEP/S=31 
DCLT> (A) ? R M=A/CH/NOST/PAS=3 DCLT> (A) ? R M=A/CH/NOST/PAS=3 
WHAT THIS SEQUENCE MEANS: 
NODE A SETS UP ITS TRANSMIT LIST TO BE 
3 MESSAGES. MESSAGE 1 1S 10 BYTES LONG AND 
CONTAINS DATA OF ALTENATING O°S AND 1°S 
MESSAGE 2 IS 20 BYTES LONG AND contaln 
DATA OF THE CCITT PATTERN. MESSAGE THREE 
1S 30 BYTES LONG AND CONTAINS ALPHANUMERICS 
FOR DATA, THE EXPECT LIST ALSO CONTAINS 
3 MESSAGES. MESSAGE 1 IS _11 BYTES LONG AND 
CONTAINS 0°S FOR DATA. MESSAGE TWO iS 21 
YTES_ LONG AND CONTAINS 1°S FOR DATA. MESSAGE 
IS 31 of LONG AND CONTAINS THE ITEP DATA. 
NODE 8 HAS THE SAME MESSAGES EXCEPT THAT THE 
TRANSMIT MESSAGE LIST IS THE EXPECT MESSAGE LIS: 


AND VICE VERSA. 
BOTH NODES ARE RUN IN THE ACTIVE MODE WITH NO 
DATA CHECKING AND PASS COUNT EQUAL TO THREE. 


WHAT YOU SHOULD SEE AFTER ENTERING THE RUN COMMAND 

IF THINGS ARE RUNNING CORRECT 

ON BOTH NODES A AND B: Ae 

MODE =ACTIVE/PASS=00000 
7NOSTATUS/ CHECK /NOE CHO/NOMODEM 


DCLT> (A) ? 
A VARIATION THAT CAN BE USED IS FOR ONE END TO SEND A LOT OF 
SMALL MESSAGES AND THE OTHER TO SEND A FEW LARGE MESSAGES. 
THE "END-OF -PASS'’ POINT WILL BE OUT OF SYNC BUT THIS IS NOT 


A PROBLEM. 


F 4 
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7.2.5 TALK AND LISTEN MODES FOR COMMUNICATING 


TALK AND LISTEN MODES ARE USEFUL IF bay Ray hdirty WISH TO COMMUNICATE 
WITH EACH OTHER. JUST SETUP A TIME Hf T EACH WILL GO are’ wee a 


N, 0 K Ss 
SEQUENCES ARE. WHEN USING TALK AND ‘ist EN MODES ON MULTIPOINT LINKS 
REMEMBER THAT YOU CAN ONLY USE THESE MODES FROM THE CONTROL STATION 
TO THE FIRST TRIBUTARY IN THE TRIB LIST. 


DCLT> (A) ? R M=LIS/NOST DCLT> (A) ? R M=TA/NOST 
LIS> TLK> 


SEQ 44 
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SEQ 45 


7.3 EXAMPLES OF COMMANDS 


THIS SECTION WILL SHOW A SAMPLING OF COMMANDS AND 
EXACTLY WHAT TO EXPECT FROM THEM. 


7.3.1 EXAMPLES OF MESSAGE COMMANDS 
THE CLEAR COMMANDS . 
pei ie tf e ? ; tf E 

Tt WILL INITIAL 17 “ine TRANSMIT AND EXPECT LIS 

O 1 MESSAGE OF 58 BYTES. THE DATA OF THE MESSAGE WILL 
BE THE ITEP MESSA ce. 
IF ee TR)? ARE MY scanned BY A SHOW COMMAND 
SUCH AS meest _ EX neECT a A aed YOU WOULD SEE IS 


YPE=ITEP 
MODE=AC ve /PAS$=00001 
. /NOSTATUS/CHECK/NOE CHO/NOMODEM 


DCLT> (A) 
NOW IF roy Dip A SET EXPECT. Lyst 68 COMMAND SUCH AS: 
AND re nt Ata on “ten EXPECT Aust COMMAND 
WHAT YOU t. 4 Set IS 


TYPE =ALPHA/SIZE=35 
MSG: TYPE=ALPHA/SIZE=35 
MSG: TYPE=ALPHA/SIZE=35 
MSG: TYPE=ALPHA/SIZE=35 
MODE =ACTIVE/PASS=00001 
/NOSTATUS/CHE CK /NOE CHO/NOMODEM 


DCLT> (A) ? 
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7.3.2 EXAMPLES OF LINE SELECTION COMMANDS 


WHEN THE DCLT> COMMAND LEVEL IS ENTERED FROM DR>START 
NO LINE TO TEST IS ESTABLISHED. 


IF A LINE SHOW COMMAND IS TYPED: OCLT> (A) ? L SH 
YOU WOULD SEE: NO LINE NUMBER 1S ESTABLISHED 


DCLT> (A) ? 
TO ESTABLISH A LINE TO TEST TYPE: 
DCLT> (A) 2? L E=N (WHERE N IS IN THE RANGE 0..7) 


FOR EXAMPLE AFTER: DCLT> (A) 2? L E=5 

a te: — COMMAND DCLT> (A) 2? L SH 

WILL PRINT LINE NUMBER: 5 

ANY sa we BY SUBSEQUENT RUN COMMANDS WILL APPLY TO 
LIN ER REMAINS ESTABLISHED UNTIL IT IS CHANGED 
BY A cine EST TABLISH OR A a KILL COMMAND OR UNTIL THE DCLT> 


THE LINE oi COMMAND ¢ 
LEAVES THE satis} ab BE DCLT WITH NO ESTABLISHED LINE. 
THE COMMAND SEQUENCE: 


DCLT> (A) 7? L K 
DCLT> (A) ? L SH 
PRINTS: 
NO LINE NUMBER IS ESTABLISHED 


IT IS NOT NECESSARY TO KILL AN ESTABLISHED LINE BEFORE 
ESTABLISHING A NEW LINE NUMBER. 


DCLT> (A) ? L SH 
LINE NUMBER: 
DCLT> (A) ? L E=3 
DCLT> (A) ?. L SH 
LINE NUMBER: 


SEQ 46 
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SEQ 47 


7.3.3 EXAMPLES OF OPERATOR ASSISTANCE COMMANDS 


P COMMMAND : 
) ? HELP OR DCLT> (A) ? ? 


L 
A 
S: 
R 
R 


Ss 
=—o0o9cg -”m 


PECT=TRAN 
RUN nEDeceT ryt OGPeLTyP/ HEC STATUS, ECHO,MODEM,PASS=N 
MTYP=TRAN,REC,ACT,PAS, TAL,LIS, 
LTYP=INT,CAB,LOC, REM? 


DCLT> (A) ? 


THE DUMP COMMAND: 
DCLT> (A) ? DUMP 41260-41300 


PRINT THE CONTENTS OF PDP=-11 MEMORY aia 
60 THROUGH 413500 IN THE FOLLOWING MANNER 


LL 
26 
260 106423 000167 177772 021122 012112 006312 006312 006312 
300 006312 


WITH THE +e SWITCH 
DCLT> (A) ; DUM 41260-41300/8 


THE DUMP COMMAND PRINTS: 


WILL 
41 
at 
41 


41260 023 211 167 000 372 377 122 024 
e} i 8 024 312 014 312 014 312 014 
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SEQ 48 


7.3.4 EXAMPLES OF RUN COMMMANDS 


YOU CAN FIND SEVERAL _EXPAMLES OF THE RUN COMMMAND IN THE 
TROUBLE SHOOTING HINTS SECTION BUT HERE ARE SOME OTHERS. 


IF YOU TYPE IN THE RUN COMMAND 
DCLT> (A) ? R M=TR/NOST/CH/PAS=4 
THE PROGRAM WILL EXECUTE 4 PASSES AND THEN PRINT 
MODE =TRANSM! T/PASS=00000 
/NOSTATUS/CHECK/NOECHO/NOMODEM 
DCLT> (A) ? 
IF YOU EXECUTE THE RUN COMMAND 
DCLT> (A) ? R M=A/LO=1/ST/CH/PAS=3 


WITH DEFAULT TRANSMIT AND EXPECT MESSAGES 
YOU SHOULD SEE: 


IN] RXQ TXQ TXC CMP EOP RXQ TXO 
TXxC CMP _EOP RXQ TXO TXC - EOP 
tainty <4) 5 INTERNAL /PASS=0000 
/STATUS/CHECK/NOECHO/NOMODEM 
DCLT> (A) ? 
IN RESPONSE TO THE EXIT COMMAND 
DCLT> (A) ? EXIT 
YOU WILL SEE : 


CZKMSA EOP 
QO CUMLATIVE ERRORS 


DR> 


K 4 
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7.3.5 EXAMPLES OF PRINT COMMANDS 
THE PRINT COMMMAND IS USED FROM THE SUPERVISOR DR> OR THE 
DCLT > LEVELTO ENTER THE REPORT LEVEL. THE PROMPT AT THE 
REPORT LEVEL IS RPT>. 
HERE ARE SOME EXAMPLES OF RPT> LEVEL COMMANDS 

THE HELP COMMAND 

RPT> HELP OR RPT> ? 

PRINTS THE FOLLOWING: 
DCLT REPORT CMDS: 

EXIT OR LOG 

STATUSONL INE 
RPT> (A) ? 


THE LOG COMMAND 
RPT> (A) ? LOG 


PRINTS A LOG ENTRY FOR THE MOST RECENT EVENTS LOGGED SINCE 
THE LAST DR> START OR DR> RESTART COMMAND. A MAXIMUM OF 
45 EVENTS CAN BE PRINTED. 


>>> +44 Baas LOG ENTRY >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 
16 oe a SPACE QUEUED 
10: RGM 01 


LIN 0 
ADDR OF hSG= 000455 BYTE COUNT= 512 
>>> DCLT EVENT LOG ENTRY >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 


RPT> (A) ? 


SEQ 49 


L 4 


CZKMSAO er 4 se Bsty MACY11 30A(1052) 23=DEC-82 14:01 PAGE 51 
CZKMSA.P11 25-DEC-82 13:54 


SEQ 50 


THE STATUSONLINE COMMAND PRINTS THE STATUS OF THE ESTABLISHED 
LINE. IF THERE IS AN ESTABLISHED LINE THEN 


RPT> (A) ? STATUSONLINE 
PRINTS: 


STATUS REPORT 
LINE NUMBER = XXX 
TAT XXX 


US = FLAGS = XXX 
TEMP DATA = XXX LAST TX MSG = XXX 
ACKS RCVD = XXX MSGS RCVD = XXX 
NAKS SENT = XXX  NAKS RCVD = XXX 


THE EXIT COMMAND RETURNS TO THE COMMAND LEVEL FROM WHICH 
REPORT PRINTING WAS INVOKED. 


io PRINTING WAS INVOKED FROM THE SUPERVISOR 
DR> PRINT 
RPT> (A) ? EXIT 
IS FOLLOWED BY: 
DR> 
o neren PRINTING WAS INVOKED FROM DCLT 
DCLT> (A) ? 
RPT> (A) ? EXIT 
IS FOLLOWED BY: 
DCLT> (A) ? 


THEN: 


THEN: 


mM 4 


CZKMSAO_KMS11-BD/BE DCLT MACY11 30A(1052) 23-DEC-82 14:01 PAGE 52 
CZKMSA.P11 25-DEC-82 13:54 


7.4 THINGS TO WATCH OUT FOR 

If YOU ARE RUNNING + ON SYSTEMS so 7. a 
PRINT Ek FEATURE IN CERTAIN MODES. THE RULE IS 

IF _IT DOESNT WORK WITH STATUS PRINTING RUN THE MODE 
WITH NOSTATUS. 


IF YOU ARE USING PASSVIE MODE ie THE ECHO SWITCH 
THEN YOU WILL PROBALBLY HAVE TO RE _ENTER THE TRANSMIT 


SEQ 51 


RECEIVE LIST WHEN USING THE ECHO SWITCH 


N 4 


SEQ 52 
CZKMSAO KMS11-BD/BE DCLT MACY11 30A(1052) 23-DEC-82 14:01 PA 
CZKMSA.P11 ete 13:54 . : GE 55 
1392 SBTTL PROGRAM HEADER 
e L H 
1995 
1399 002000 BGNMOD 
N 
1998 
1999 
5p00 
001 
$008 
200 p++ 
2064 3; THE PROGRAM HEADER IS THE INTERFACE BETWEEN 
$009 3: THE DIAGNOSTIC PROGRAM AND THE SUPERVISOR. 
2007 x 
soos 002000 POINTER ERRTBL,BGNRPT ,BGNAU,BGNDU 
2010 
sot 
$18 
sole 002000 HEADER CZKMS,A,0,1800.,0,PRI07 
2015 002000 LSNAME : : 
2016 00200 103 ASCII /C/ 
2017 002001 136 ASCII /2/ 
2018 00200 11 ASCII /K/ 
2019 00200 115 ASCII /M/ 
2020 002 123 ASCII /S/ 
2021 002005 000 -BYTE O 
$oe¢ 002006 000 -BYTE O 
2023 002007 000 -BYTE O 
024 002010 LSREV:: 
025 002010 101 ASCII /A/ 
2026 002011 LSDEPO:: 
2027 002011 060 eASCII /0/ 
028 002012 LSUNIT:: 
029 002012 000000 -WORD O 
sot 002014 LSTIML:: 
031 002014 003410 eWORD 1800. 
32 002016 LSHPCP:: 
033 002016 067230 -WORD LSHARD 
034 002020 LSSPCP:: 
035 34 000000 «WORD O 
0 0020 LSHPTP:: 
037 0020 002130 «WORD LSHW 
038 +34 4 LSSPTP:: 
39 2024 000000 «WORD 0 
040 gognse LSLADP:: 
041 3th 067542 «WORD LSLAST 
sng] 0020 LSSTA:: 
043 002030 000000 ewORD O 
044 oe Oss L$CO:: 
045 0020 000000 «WORD 0 
cog 002034 LSDTYP:: 
She 002034 000000 «WORD 0 
048 002036 LSAPT:: 


CZKMSAO_KMS11 


CZKMSA.F11 
2049 88 03 
$820 0204 

051 00204 
026 00204 
053 00204 
054 00204 
055 00204 
shee 00204 
057 00204 
2058 00205 
$028 88 05 
060 00205 
2061 00205 
5006 00205 
soe 00205 
064 00205 
2065 00205 
2066 00206 
2067 0020 
2068 0020 
2069 00206 
070 00 

00 


= 
ssses 


~m 
o 
~ 
<0 
Ssssss 


So 

oo 

“ 
geese 


088 43 
089 00 

84 002 
i 
si 
095 003 
8 83 
8 $83 


PAREN COS 


MNROO 


SSaarEnnoose 


2eepet-B2 13:54 


000000 
002124 
000340 
000000 
000000 


00 
90 


000000 
000000 


000000 
013714 
032576 
000000 
000000 
054156 
054150 
000000 
013730 
104035 
013704 
032612 
054022 
054020 
032604 
000000 
000000 
000000 


MACY11 30A(1052) 23=DEC-82 
PROGRAM HEADER 


14:01 


B 5 
PAGE 54 


WORD 
LSDTP:: 

WORD 
LSPRIO:: 

WORD 
LSENVI:: 

~WORD 
LSEXP1:: 

WORD 
LSOMREV:: 

BYTE 

BYTE 
LSEF:: 

~ WORD 

~ WORD 
LSSPC:: 

«WORD 
LSDEVP:: 

~ WORD 
LSREPP:: 

WORD 
LSEXP4:: 

~ WORD 
LSEXPS:: 

» WORD 
LSAUT:: 

~ WORD 
LSDUT:: 

«WORD 
LSLUN:: 

~ WORD 
LSDESP:: 

«WORD 
LSLOAD:: 

EMT 
LSETP:: 

~ WORD 
LSICP:: 

~ WORD 
LSCCP:: 

~ WORD 
LSACP:: 

WORD 
LSPRI:: 

» WORD 
LSTEST:: 

~ WORD 
LSDLY:: 

- WORD 
LOHIME:: 

«WORD 


0 
LSDISPATCH 
PRIO7 


LSDVTYP 
LSRPT 

0 

0 

LSAU 
L$DU 

0 
LSDESC 
ESLOAD 
LSERRTBL 
LSINIT 
LSCLEAN 
LSAUTO 
LSPROT 
0 

0 

0 


SEQ 53 


..% 


SEQ 54 
CZ7KMSAO KMS11-BD/BE DCLT MACY11 30A(1052) 23-DEC- 4:01 PA 
CZKMSA,P11 25-DEC= : 13:54 EY thar” a 
Q RESS OF EACH TEST. 
Q ; IT 18 USED BY THE SUPERVISOR TO DISPATCH TO Mitt Ost - 


101 p+ 
; THE DISPATCH TABLE CONTAINS THE STARTING ADD 
§ DISPATCH 1 
2 
2 
2 


=9SeSsS3S2 
SCOONAVEWw 


WORD 
054164 RSPEI 


dD 5 


SEQ 55 
CZKMSAO KMS11-BD/BE DCLT MACY11 30A(1052) 23=DEC-82 14:01 PAGE 56 
CZKMSA,P11 23=DEC-82 13:54 DEFAULT HARDWARE P-TABLE 

111 34+ 

a2 ; THE DEFAULT HARDWARE P-TABLE CONTAINS DEFAULT VALUES OF 

11 : THE TEST=DEVICE PARAMETERS. THE STRUCTURE OF THIS TABLE 

2114 ; IS IDENTICAL TO THE STRUCTURE OF THE HARDWARE P-TABLES, 

siie : AND IS USED AS A ‘TEMPLATE’ FOR BY'ILDING THE P-TABLES. 

2117 

2118 002126 BGNHW ODFPTBL 

2119 002126 000006 «WORD 1L10000-L$HW/2 
2120 0021350 LSHW:: 

2121 002130 DFPTBL:: 

2122 

2125 

2124 : INDEPENDENT use Gt tON 

2125 : THE NUMBERS IN BRACKETS ARE THE OFFSET VALUES USED IN THE PARAMETER 
2126 ; CODING SECTION. 

2127 

2128 

2129 

2139 

2131 

2132 ;DEVICE DEPENDENT SECTION =e 

2133 : ING OR REMOVING WORDS FROM THIS TABLE EFFECTS THE “'GET’’ CALLS IN 
31% : THE I WARDUARE PARAMTER CODING SECTION BY CHANGING ‘OFFSETS 

2136 002130 164100 WORD 164100 70] CSR ADDRESS (KMC11-B) 

2137 002132 000400 WORD 400 C2] INTERRUPT VECTOR (KMC11-B8) 

2138 002134 000240 WORD 240 :€4] INTERRUPT PRIORITY (BRS) (KMC11-B) 
2139 002136 164110 WORD 164110 :(6] CSR ADDRESS (DM11-BA MODEM CONTROL CSR) 
2140 002140 000000 WORD 0 :C10]SPARE 

gi4) 002142 000000 «WORD 0 3C12]SPARE 

$108 

2144 002144 ENDHW 

2145 002144 L10000: 


— 5 


CZKMSAO_KMS11-BD/BE DCLT MACY11 30A(1052) 23=DEC= ; SEO 56 
CZKMSA.P11 23-DEC- 2 13:54 DerAUL waRDuARE ay ik PAGE 57 
146 


, 


SEQ 57 
C7KMSAO kMS11-80/BE DCLT MACY11 30A(1052) 23-DEC-82 14:01 PAGE 58 
CZKMSA.P11 23=DEC “B82 13:54 GLOBAL EQUATES SECTION 
149 
150 
151 
126 3+ 
215 : THE GLOBAL EQUATES SECTION CONTAINS PROGRAM EQUATES THAT 
3134 : ARE USED IN MORE THAN ONE TEST. 
$180 
2157 
9138 002144 EQUALS 
e160 > BIT DIFINITIONS 
g162 100000 BIT1S== 100000 
216 040000 BIlT14== 40000 
2164 020000 BIT13== 20000 
2165 010000 BITi2== 10000 
2166 004000 BIT11== 4000 
2167 002000 BIT10== 2000 
2168 001000 BIT09== 1000 
2169 000490 BITO8== 400 
2170 000200 BIT07== 200 
2171 000100 B1T06== 100 
2172 000040 BIT0S== 40 
2173 000020 BIT04== 20 
217% 000010 BITO3== 10 
2175 000004 BITO2== 4 
2176 000002 BlTOl== 2 
giz 000001 BIT00== 1 
2179 001000 B1T9== BITO9 
2180 000400 BIT8== BIT08 
2181 000200 BlT7== B1T07 
2182 000100 BIT6== BIT06 
2183 000040 BIlTS== BIT05 
2184 000020 BlT4== BIT04 
2185 000010 BlT3== BIT03 
2186 000004 BlT2== BIT02 
2187 000002 BlTl== BIT01 
o188 000001 BiT0== B1T00 
2190 + EVENT FLAG DEFINITIONS 
e131 : | EF 32:EF17 RESERVED FOR SUPERVISOR TO PROGRAM COMMUNICATION 
$198 00004 EF START== 2. : START COMMAND WAS ISSUED 
g134 000037 EF .RESTART== a” : RESTART COMMAND WAS ISSUED 
195 000036 EF.CONTINUE== 30. : CONTINUE COMMAND WAS ISSUED 
2196 000035 EF .NEW== 29. > A NEW PASS HAS BEEN STARTED 
3196 000034 EF .PWR== 28. : A POWER-FAIL/POWER-UP OCCURRED 
199 : 
3200 > PRIORITY LEVEL DEFINITIONS 
$502 000340 PRIO7== 340 
2208 000300 PRI06== 300 
2204 000240 PRIOS== 240 


G 5 


SEQ 58 
CZ7KMSAO KMS 11580/BE pou! MACY11 30A(1052) 23-DEC-B82 14:01 PAGE 59 
che KMSA.P11 23-DEC-B2 13:54 GLOBAL EQUATES SECTION 

205 000200 PRI04== 200 

206 000140 PRIO3== 140 

2207 000100 PRIO2== 100 
2208 000040 PRIOI== 40 
3209 000000 PRIO0== 0 
2211 JOPERATOR FLAG BITS 
ele 
221 000004 évics 4 

2214 000010 LoT== 10 
215 000020 ADR== 20 
16 000940 1DU== 40 

2217 000100 1SR== 100 
2218 000200 UAM== 200 
2219 000400 BOE == 400 
2220 001000 PNT== 1000 
2221 002000 PRI== 2000 
9222 004000 IXE== 4000 
222 010000 IBE== 10000 
2226 020000 IER== 20000 
2225 040000 LOE== 40000 
226 100000 HOE== 100000 


H 5 


SEQ 59 
CZ7KMSAO KMS11-BD/BE DCLT MACY11 30A(1052) 23-DEC-82 14:01 PAGE 60 
CZKMSA.P11 ete tH 13:54 GLOBAL EQUATES SECTION 

38 : INDEPENDENT EQUATES 

2 9 000000 ENUM = 0 INITIAL VALUE FOR ERROR NUMBER 
2682 001000 BUFLIM=512. :MAX BUFFER SIZE IN BYTES 

223 : APPLIES TO TX,RX AND CMP BUFFS 
2234 000017 MSGLIM=15. ;MAX NO. OF MESSAGES PER BUFF 

2235 : (FOR EACH INCREMENT (+1) TO MSGLIM, 
2236 : ADD 6 WORDS TO THE POINTER TABLE 
2237 : (PTRTAB:) SINCE THIS MEANS 2 MORE 
$538 : “'POINTER’' WORDS PER BUFFER. 
$50 
2241 MODE OF OPERATION EQUATES 

oceg 000000 REC=0 RECEIVE MODE 

224 000001 TRA=1 ; TRANSMIT MODE 

2244 00000 pases sPASSIVE MODE 

2245 09000 ACT= sACTIVE MODE 

2246 :KMS11-BD,BE DCLT DOES NOT SUPPORT DOWN-LINE-LOAD MODE 
2247 000004 DOW=4 sDOWN-LINE=LOAD MODE 

2248 000005 TAL=5 3; TALK MODE 

$$e0 000006 LIS=6 sLISTEN MODE 
$631 :MAINT LOOP TYPE EQUATES 
$328 000000 NONE= 0 zNO LOOP 
2254 000001 TTL= 1 s INTERNAL TTL 
$$22 000002 CABLE= 2 ;CABLE LOOP 
2257 :KMS11-BD,BE DCLT DOES NOT SUUPORT MODEM LOCAL MODEM REMOTE OR MOP 
2258 000003 MODLOC= 3 sMODMEM LOCAL 
2259 000004 MODREM= 4 sMODEM REMOTE 
2260 000005 MOP= 5 3;MOP 
ss 
$507 CLOCK ENABLE VALUES TO BE LOADED IN CLK‘S CSR 
2265 000100 LCLKEN= 100 ZL-CLOCK CSR VALUE TO ENABLE THE CLOCK 
2266 000111 PCLKEN= 111 sP-CLOCK CSR VALUE 0 ENABLE THE CLOCK 
scor 001600 PCLKCT= 1600 sP-CLOCK COUNT SET REGISTER FOR COUNTER 
$88 PARAM WORD EQUATES 

271 000001 STATB= BITO OPERATOR AWAKE ASKED FOR 

$378 000002 DATCKB= BIT! DATA CHECK BIT 

2e7 000004 —ECHOB= sits sECHO BIT 

2274 000010 MOCHK= BIT MODEM CHECK/NO CHECK 

$67 000020 CRCB= BIT4 sCRC CALCULATE ASKED FOR 

576 000040 PROTOB= BITS PROTOCOL PROCESSING ASKED FOR 


1 5 


SEQ 60 
CZ7KMSAO KMS11- 4 9 DCLT MACY11 30A(1052) 23-DEC-82 14:01 PAGE 61 
CZKMSA.P11 235=DEC-82 13:54 GLOBAL EQUATES SECTION 

278 OPTION TYPE EQUATES 
2378 
st 
228 sEVENT LOG MESSAGE TYPES CUSED TO LOCATE EVENT DESCRIPTION IN EVENT TABLE 
228 3; AND st Shee TO SEPARATE SECTIONS OF THE EVENT REPORTING SECTION) 
2284 000000 TxXQ= g ; TRANSMIT MESSAGE QUEUED 

sso? 000002 TxXC= ; TRANSMIT COMPLETE 

286 000004 RXQ= 4 sRECEIVE BUFFER QUEUED 

287 000006 RXC= 6 sRECEIVE COMPLETE 

see 00001 DER= 19 :DEVICE INFORMATION 

89 00091 DvI= 1 :DEVICE ABOUT TO INIT 

290 000014 DCK= 14 sDATA COMPARISON Fae 

291 000016 MSC= 16 sMODEM STATUS CHANGE 

$538 000020 DLE= 20 sDATA COMPARISON LENGTH ERROR 
229 000022 DDE= 22 sDATA COMPARISON DATA ERROR 
$soe 000024 EOP= $e END OF PASS 
$$9e 000026 ABO= 6 
5344 sEQUATES FOR FLAG WORD 
$599 000001 ININT = BITO : INPUT INT. REC. 

2300 000002 OTINT = BIT1 :OUTPUT INT REC 
2301 000004 RX = Big 3RX QUED /COMPL 
$308 000010 QTXxX = BIT + TX QUED/COMPL 
230 000100 ERX = BIT6 sEXPECT TO GET A RX COMPLED 
2304 000200 ETX = B1T7 sEXPECT TO GET A TX COMPLETED 
2305 000400 INITC = BIT8 sEXPECT INIT SYSTEM COMPLETED 
2306 001000 SET = BIT9 sEXPECT SET LINE COMPLETED 
2307 002000 STAT = BITI0 sSTATUS REPORT EXPECTED 
Sip 004000 TXTO = BIT11 [TRANSMIT TIMEOUT OCCURRED 
2310 
2311 
$3ig 
231 : SPECIAL CLI CODES FOR ‘’CHAR’ ARGUMENT IN CLI CALLS 
2314 3: (COMMAND LINE INTERPRETER DEFINITIONS) 
$3\3 000000 CLIERR= 0 

316 000001 CLIEXI= 1 

317 pas CLIBR= ; 

318 00000 CLIBIF= 

319 000004 CLISPA= 4 
$359 alae CLINUM= 5 

321 ‘s) CLIALP= § 
2322 00000 CLIALN= 
$e52 000010 CLIOCT= 8. 
2326 000011 CLIDEC= 9. 
$35e 000012 CLISTR= 10. 


CZKMSAO_ KMS11 


CZKMSA.P11 


Se mae 
DOOWNAOVEWN 0 ODBNO UE WN S(O OONOUE WN —OOaN 


MURORORUROROURORORORO ROTOR Rnonunnonnonononoronorunorornenunofy 


RARRARAAAAR EEE EERE RE 


Eyee 


Se 


MOPEFOPOPOMOPOPERONONON 
SESEE 


Ronononononononononony 

AN AAM ANAM 
SESsa oe 
ROC OCBnNOVEwn OO 


Et-BS 


000000 


ee 


38s 
S35 


T 
13:54 


MACY11 30A(1052) 


23-DEC-82 


14:01 


GLOBAL EQUATES SECTION 


; DEFS 6 Oe eae LINE INTERPRETATION ACTION VALUES 


= 
TTLLOP=44 
CBLLOP=45 


BADCHR=51 
D = 


ANOS Ww 


HPPA 
o 


nnHnnhee hn 


OPOR 
MEW — 


J’ 5 
PAGE 62 


SEQ 61 
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SEQ 62 
CZKMSAO pst 90/BE psur MACY11 30A(1052) 23=DEC=82 14:01 PAGE 63 
CZKMSA.P11 23-DEC=82 13:54 GLOBAL EQUATES SECTION 

$363 sFOLLOWING EQUATES USED IN REPORT CLI 

5 85 000001 RPHLP=1 

2386 Sonos Apc nae’ 

2387 00000 RPLOG= 

2388 000004 RPSOL=4 

$363 000005 RNOTNF =5 

390 000006 RDMPS=6 
2391 000007 RDMPQ=7 
$308 000010 RDMPE=10 


CZKMSAO_ KMS11 


CZKMSA.P11 


MIMrNoNfN 
SRLS 


28DEC-B2 13:54 


000000 


000000 


100000 
040000 


000001 
000200 


900020 


007726 


MACY11 30A(1052) 
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0 63 
23-DEC-82 14:01 PAGE 64 SEQ 6 


GLOBAL EQUATES SECTION 


0 CLEAR TO SEND 
0 AT 


ooooo 
= 
z 
—rm 
zo 
mMa2ac > 
nm 
— 
4 
= 
— 
oO 
> 
Nw 4AM D 


) 
IRCUIT TM) 


; DEVICE BIT DEFINITONS 


3CSR2: 


sKMLTYP 


3KMS11-BD/BE REGISTER BIT DEFINTIONS 
CSRO: 


KRUN= BI1T15 ;RUN BIT 
MCLR= BIT14 sMASTER CLEAR 

;BiT13 2 UNDEF INED 
EXT1= BITI2 sSTEP LINE UNITCOPTIONAL. USED WITH SOME LINE UNITS) 
EXTO= B1T11 sLINE UNIT LOOP (OPTIONAL. USED WITH SOME LINE UNITS) 
RAMO= B1T10 ;LOAD VERIFY RAM 
RAMI= BIT9 sMAINTENANCE IN eS hoe REGISTER CLEARS PC 

AND LOADS MAINT gieenoeee son INTO CRAM LOCATION ZERO 

STEP= BIT8 SINGLE STEP MICROPROCESSOR 
RQI= BIT? REQUEST PERMISSION TO TRANSFER COMMAND TO DEVICE 
1EO= BIT4 sOUTPUT INTERRUPT ENABLE 
IEI= BITO : INPUT INTERRUPT ENABLE 


USED FOR COMMUNICATION BETWEEN COMM DEVICE AND ITS LOCAL HOST PROCESSOR 


RDYO= ®BI1T7 ;sREADY OUT BIT 
;SET BY DEVICE TO REQUEST HOST TO ACCEPT MESSAGE 
sCLEARED BY LOCAL HOST WHEN IT HAS ACCEPTED MESSAGE 


RDYI= BIT4 gREADY IN BIT 

ET BY DEVICE TO GRANT LOCAL HOST PERMISSION 
TO TRANSFER COMMAND TO DEVI 

LEARED BY LOCAL HOST yee COMMAND HAS BEEN 
TRANSFERRED TO DEVICE CSRS 


= ADDRESS IN KMC DATA RAM OF INTERNAL LOOPBACK MODE SPECIFIER 
KMLTYP= 7726 s***THIS VALUE IS A KMC DATA ADDRESS 


CZKMSAO ‘woke 
CZKMSA.?11 


D/BE 
23-DEC- 


000000 


00000 


313254 
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SEQ 64 
MACY11 30A(1052) 23=DEC-82 14:01 PAGE 65 
GLOBAL EQUATES SECTION 
; MISCELLANEOUS EQUATES FOR ERROR CALLS 
ENUM = 0 siNITIAL ze ERROR NUMBER 
T.ESF = 0 sSYSTEM FATAL ERROR TYPE 
T.EDF = 1 sDEVICE FATAL ERROR TYPE 
T.EHRD = ¢ sUNRECOVERABLE ERROR TYPE 
T.ESFT = SOFT ERROR TY 


N 5 


SEQ 65 
CZKMSAO web 4 +: pcut MACY11 ph tg rt 43 14:01 PAGE 66 
CZKMSA.P11 25-DEC=- 13:54 L DATA SECTION 
454 
455 
2456 p+4 
2457 : THE GLOBAL DATA SECTION CONTAINS DATA THAT ARE USED 
458 a IN MORE THAN ONE TEST. 
459 :- 
460 
2461 
$ies -SBTTL DEFAULT MESSAGE DEFINITIONS AND TABLES 
sige sMESSAGE BYTE COUNT TABLE 
2466 002144 DMSGCT: 
2467 002144 000001 MSGOC: .WORD EMSGO-MSGO sBYTE COUNT OF MESSAGE #0 
2468 002146 000001 MSGiC: .WORD EMSG1-MSG1 sBYTE COUNT OF MESSAGE #1 
2469 002150 000001 megs? eWORD EMSG2-MSG sBYTE COUNT OF MESSAGE # 
2470 002152 000001 MSG35C: .WORD EMSG5-MSG sBYTE COUNT OF MESSAGE @ 
2471 002154 000100 MSG4C: .WORD EMSG4-MSG4 sBYTE COUNT OF MESSAGE #4 
2472 002156 000072 MSG5C: .WORD EMSG5-MSG5 sBYTE COUNT OF MESSAGE #5 
2473 002160 000101 MSG6C: .WORD EMSG6-MSG6 sBYTE COUNT OF MESSAGE #6 
2474 ope ler 000000 OPCNT: .WORD 0 BA COUNT FOR OPERATOR SP cr MSG. 
475 002164 000001 MSG8C: .WORD EMSG8-MSG8 BYTE COUNT OF RECEIVE BUFFER FILL PATTERN 
476 002166 000005 DLLM1C: .WORD DLLMIE-DLLM1 DLL MSG 1 COUNT 
2477 002170 000254 DLLM2C: .WORD DLLM2E-DLLM2 DLL MSG 2 COUNT 


B 6 


SEQ 66 
CZKMSAO EAST -90/ 08 psul MACY11 30A(1052) 23=DEC-82 14:01 PAGE 67 
CZKMSA.P11 25-DEC=-82 13:54 DEFAULT MESSAGE DEFINITIONS AND TABLES 

380 :MESSAGE ADDRESS TABLE 

481 00 7s DMSGAD: 

482 002172 002214 MSGO sADDRESS OF MESSAGE #0 

483 002174 8 15 MSG1 sADDRESS OF MESSAGE #1 

484 002176 00 1 MSG sADDRESS OF MESSAGE # 

485 002200 00221 MSG sADDRESS OF MESSAGE # 

486 002202 00 $8 MSG4 ADDRESS OF MESSAGE #4 

487 002204 002520 MSG5 sADDRESS OF MESSAGE #5 

488 002206 00241 MSG6 sADDRESS OF MESSAGE #6 

489 O06 10 00252 Ary sADDRESS OF OPERATOR SPEC*D MSG. 
24 002212 00254 MSG sADDRESS OF RECEIVE BUFFER FILL PATTERN 
49 OOeste 000 mMSGO: BYTE 000 sMESSAGE OF ALL O'S 

493 002215 EMSGO: 

494 002215 377 MSGI: BYTE 377 sMESSAGE OF ALL 1°S 

495 ppssie EMSG1: 

496 002216 252 MSG2: -BYTE 252 sMESSAGE OF ALTERNATING 1°S 

497 possi s AO 

498 002217 125 $G3: BYTE 125 sMESSAGE OF ALTERNATING 0°S 

2499 002220 EMSG3: 

2500 002220 MSG4: CCITT’ 512-BIT (VS. 511 BITS) TEST PATTERN 

2501 002220 177603 157427 031011 SWORD 177603,157427,031011,047321, 163715, 105221, 143325, 142304 

5208 poesse 047321 163715 105221 
503 002234 143325 142304 

2504 002240 040041 014116 952606 WORD  040041,014116,052606, 172334, 105025,123754,111337,111523 
505 00 see 175338 105025 123754 
506 002254 111337 111523 
507 002260 030039 145064 137668 .WORD  030030,145064, 137642, 143531 ,063617,135075,066730,026575 

2508 002266 143531 063617 15507 

2509 002274 066730 969273 

2510 002300 052012 053627 070071 WORD 052012,053627,070071, 151172, 165044 ,031605,166632,016741 

2511 eh tg 151172 165044 031605 

$216 002314 166632 016741 

2513 002320 EMSG4: a 

sar} 002320 MSGS: Bes we TEST PROGRAM'S (ITEP)*’ MESSAGE 

2516 002320 077577 040444 052040 sASCI] <177><177>/$A THE ouick BROWN FOX JUMPED OVER THE LAZY DOG./ 

sei; Boe 360 Beee te 050440 044525 
518 B08e 04550 Be 1088 O07 340 

2519 3 342 047127 rts B78)) 

2520 092350 045040 $036 42520 
25) B36 320 Be 106 053117 051105 
5 ¢ OS 64 040 042510 046040 
523 002372 055101 020131 047504 

$2S¢ hts 027107 
525 002402 005015 077401 077577 ASCIZ <15><12><001><177><177><177><177> 

$2$8 002410 000177 
5 00241 EMSGS: 

2528 00241 MSG6: jeune RCS (OR FUTURE COMM TURNAROUND MSG) 
529 00241 022043 021041 02 3060 ASCII = /#$!"" &'()e+,-.012 456789: ; <=> ?@ABCDEF GHI JKLMNOPOQRSTUVWXYZ/ 
5 0024 024047 025051 02605 
531 002426 027055 ° 60 Hh 3 
236 002434 0 $798 466 447 

2533 002442 035472 036474 7476 

2534 002450 040500 041502 042504 
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SEQ 67 
CZKMSAN_KMS11 ret psuy MACY1* 30A(1052) 23=DEC=82 14:01 PAGE 68 
CZKMSA.P11 DEC-82 13:54 DEFAULT MESSAvE DEFINITIONS AND TABLES 
$2 5 002456 043506 044510 Oo Res 
536 00 “$s 046514 047516 82026 
2537 0024 03} 286 052365 053526 
2538 002500 054550 1 ¢ 
2539 00250 93/ 056133 057135 eASCIZ §=2/0\]*_ 2? 
2540 002510 022537 000 
2541 002513 EMSG6: 
2542 002514 -EVEN 


dD 6 


SEQ 68 
CZKMSAO KMS11580/BE peut MACY11 30A(1052) 23=DEC-82 14:01 PAGE 69 
CZ2KMSA.P11 23=DEC=82 13:54 DEFAULT MESSAGE DEFINITIONS AND TABLES 
2543 3 SAHARA AAAAAAEHAERHETEHEHRAAHEAEAAARAAEREAHARAeRHeHeeReeKetenAeeeeeeeee 
ee sTHESE THREE STORAGE AREAS MUST NOT BE SEPARATED !!!! 
546 002514 047045 040445 OPBFPT: .ASCII /%N%A/ 
547 002520 000122 OPBUF: .BLKB 82. :BUFFER FOR OPERATOR SPEC'D MESSAGES 
ae 002642 OPEND: 


; THE ABOVE THREE LINES MUST BE KEPT TOGETHER 


3 RERERARAAAAAAERERAEERAEREAAEEAAERERAAARAAAAAEEAEAAEAAAEAHRERAHAEHEEAEE 


002642 033 MSG8: .BYTE 33 RECEIVE BUFFER FILL PATTERN 
002645 EMSGB: 


= 
PEW —ODOONOUS 


PAA 


—E 6 


SEQ 69 
CZKMSAO KMS11-BD/BE DCLT MACY11 30A(1052) 23=DEC-82 14:01 PAGE 70 
CIKMSA.P11  23-DEC-B82 13:54 DEFAULT MESSAGE DEFINITIONS AND TABLES 

2556 ;*#**eKMS11-BD/BE DOES NOT SUPPORT DOWN LINE LOAD*ees 

$22! > DOWN-LINE=LOAD MESSAGE DEFINITIONS 

2559 je¢zENTER MOP MODE MESSAGE FORM 

2560 THE NODE WILL ENTER MAINTENA ANCE MODE ANY If THE PASSWORD MATCHES. 
2561 002643 006 piimt: ‘AYTE 6 SBINARY CODE FOR MAINTENA NCE MOD 

e566 002644 000 PASS]: .BYTE ‘PASSWORD BYTE #1 LEGAL VALUE 0 = 255 

563 002645 000 PASS2: .BYTE :;VALUE IN BYTE 1 1s" DUPLICATED HERE 

2564 00264 $ 000 PASSS: .BYTE 3 ¢AND HERE 

2565 002647 000 PASSG: .BYTE 0 ::2sAND HERE. 

566 002650 DLLMIE: ‘Eb ENTER MOP MODE MESSAGE FORMAT 

567 “MEMORY LOAD with TRANSFER ADDRESS MESSAGE FORMAT 

568 002650 000 piim2: ‘aYte 0 ODE 

2569 002651 000 “BYTE 0 ZLOAD NUMBER 

2570 00 65¢ 006 “BYTE 6 LOAD ADDRESS LSB 

2571 00265 000 "BYTE 0 ; 
2578 002654 000 "BYTE 0 

2573 002655 000 "BYTE 0 SLOAD ADDRESS 
2575 S“LOADER' IMAGE DATA SLOCATIONS (WORDS) 
2576 ; TADDR CONTENTS 

2578 002656 000240 NOP sBYTE COUNT’ :006 000240 

2579 002660 005037 000006 CLR : tT yp 160.) :010 005037 0000 
3580 002664 012706 001000 MOV #1000,5 7014 012706 001 $08 
2581 002670 012701 177560 MOV Ay R1 sSET UP TTY 7020 012706 177560 
258¢ 002674 010700 MOV PC,R [MAKE ADDR.PIC :024 010700 

2583 002676 062700 000034 ADD #<MSG-.>,RO TADDRESS MSG. :0¢6 062700 000034 
2584 002702 105761 000004 1$: TSTB 0s &(R1) tTTY READY? 7032. 105761 000004 
2585 002706 100375 BPL 1$ ‘WAIT TIL YES :036 100375 

5586 002710 112061 000006 MOVB — (RO) +, 6(R1) [TYPE A CHAR :040 112061 000006 
2587 002714 001372 BNE “KEEP GOING 7044 001372 

5588 002716 012737 000026 000024 MOV #26, a#26 “SETUP PWR FAIL :046 012737 000026 000024 
2589 002724 005037 000026 CLR a#26 : ENSURE TBIT CLR:054 005037 000026 
2590 002730 000777 BR N YOURSELF:060 000777 

2591 002732 006412 047502 052117 MSG: “ASCII <12><15>/B001 meSSace. WAS RECE/ :062 006412 047502 ....... 
3298 002740 046440 051505 040523 

59 2746 042507 053440 051501 
2594 002754 051040 041505 105 
2595 002761 111 042526 020104 -ASCII /IVED SUCCESSFULLY -E/ ; 

596 2766 052523 041503 051505 

597 002774 043123 046125 054514 
2598 003002 026440 105 

00300 116 020104 0463117 LASCII =/ND OF TEST!!/ ; 

2600 003012 052060 051505 020524 

601 00302 04 

602 003021 012 027015 027056 SASCIZ  <12><15>/....RELOAD PROGRAM..../; 

2603 003026 051056 046105 040517 

5606 003034 020104 051120 043517 

2605 003042 040522 027115 027056 

2606 003050 000056 


SEQ 70 


6 
-82 14:01 PAGE 71 
MESSAGE DEFINITIONS AND TABLES 


FC 


23-D 
DEF AUL 


D/BE DCLT MACY11 30A(1052) 
SoEe Be 13:54 


2 


CZKMSAO_ KMS11- 


CZKMSA.P11 


7 

7 

3 

4 

5 

Vi 
126361 


i) 
z""CHECKSUM WORD''; 246 


;PADDING T0 0 
(USE PART 
177 
047 
143 
014 
105 
111 
126361 


WORD 
WORD 
WORD 
«WORD 
WORD 
WORD 
WORD 

Y 

Y 

Y 

Y 
-EVEN 


DLLMZE: — 


sei? 003116 126361 
3 
3 
3 
3 
3 


2615 0 
616 
2618 
261 
26 

6 

6 

6 

6 
262 


CZ7KMSAO_ KMS11- 


CZKMSA.P11 2 
627 
628 
629 003124 
2630 005246 
2631 
$036 003250 
263 Opes ee 
2634 003 54 
2635 003256 
se Sat 
a8 Sit 
639 003266 
2640 003270 
2641 003272 
song 003274 
2645 003276 
2644 Bo ag08 
2645 003300 
2646 003302 
2647 0053504 
2648 
2649 
2650 
2651 003304 
52g 003312 
653 003520 
2654 
2655 
2656 
2657 
2658 003324 
2659 EET E4 
2660 0033352 
2661 003535 
266 
266 
2664 003334 
2665 003336 
2666 003340 
2667 tt rd 
ce 
5 S38 
2671 
2672 003352 
673 003554 
674 003356 
2675 003360 
2676 003562 


9/05 psut MACY11 30A(1052) 23- 

-DEC- 13:54 COMMAND LINE 
000122 CMDBUF: .BLKB 
000000 KEYWD1: .WORD 
000000 QUALFG: .WORD 
B08 QUALVL: .WORD 
0146 HLPTAB: .WOR 
014656 ~WORD 
014754 ~WORD 
012036 WORD 
01512 WORD 
015150 WORD 
ETT 44 WORD 
0153505 ~ WORD 
015375 WORD 

HLPEND: 
015607 RHLPTB: .WORD 
015631 WORD 
015646 WORD 
RHLPEN: 

015720 015727 015734 SHTYTB: .WORD 
015741 015746 015754 
015761 015767 


Oo 
= 
o 
iv 
= 


7? 
357 
3 


ooooo oOCOo°o 
pre er Ser re 


377 
203 


~ 
™Nm 


LOCATIONS AND MESSAGES 


;BUFFER FOR OPERATOR COMMAN 
sTHIS LOC WILL =1 IF CLEAR 
; A 4 IF RUN WAS TYPED, 5 
sTHIS LOC HOLDS QUALIFIER 


SEQ 71 


YPED, 2 FOR SHOW, 
HELP WAS TYPED 
LUE (SIZE OR COPY) 


SHTYPO, SHTYP1,SHTYP2,SHTYP3,SHTYP4,SHTYP5,SHTYP6,SHTYP7 


: THE LIST OF BYTES BELOW ARE THE FIRST BYTES OF THE PREDEFINED MESSAGES 


USED TO “‘SHOW'’ THE TRANSMIT AND COMPARE BUFFER CONTENTS. 


SHTAB: 


SHTEND: 


MODES: 


LOOPS: 


-BYTE 


0,377,252,125,203,177,043 


ZADDRESSES OF MODE TYPES IN ASCII 


ZADDRESSES OF LOOP TYPES IN ASCII 


H 6 


SEQ 72 
CZ7KMSAO tee D/BE gut MACY11 othe 23-DEC-82 14:01 PAGE 73 
CZKMSA.P11 23-DEC=82 13:54 OMMAND LINE INTERPRETER BUFFER,LOCATIONS AND MESSAGES 
3078 COMMAND LINE TRAVERSE LOCATIONS (USED BY ‘’PSTRV"’) 
679 003364 000000 $8 - WORD 8 sL0C. 19 HOLD ADDR. OF CMD LINE BUFFER 
2680 00 00000 PSTREE: .WORD [LOC. TO HOLD ADDR. OF PARSING TREE 
00 3 000000 PSACT: .WORD 0 sLOC. TO HOLD ADDR. OF ACTION ROUTINE 
ore 003372 000000 PSCNT: .WORD 0 3;L0C. TO BE A COUNTER LOCATION 
003374 000000 eWORD 0 :L0C. 19 HOLD NUMERIC VALUE FROM PARSE 
26 003376 000000 PSRADX: .WORD 0 ; oC. 0 HOLD RADIX USED(LO) AND ¢/-(HI BYTE) 
2685 003400 000 PSNNUF: .BYTE 0 sRETU inte =0 IF ENOUGH OF COMMAND FOUND 
2686 003401 000 P$GDBD: .BYTE 0 SRETURN CODE 0 IF NO ERROR FOUND 
687 003402 000 WRFLG: .BYTE 0 SWRITE FLAG 
688 003404 .EVEN 
2689 002404 000000 VALTRB: .WORD 0 sVALID LINE FLAG..IF SET <1 THEN VALID 


CZ7KMSAO = D/BE 
CZKMSA.P11 


PROPRINORINY — et ot ot oo es 
Fun “SO OOneouvlfwn—o 


POPOPOPIPOPURU PPPOE PoNonnenony 

SNS NNN NNN SSNS 
SISVTO 

@Bnow 


COCO SCOCOCOCOCOCOOCOOOOoOOoOoOoO 


PoPoRoRoRoRoRoRoNn 
SSS 
SSSSRFUNS= 


00 
007656 


essssssessss 
SSSSooarES 


sss 


~~ tt ot —o wh we a 
oooo oOCCoCOoOoO°o 

— — + — Ot Oe tt 
eN—— oOoonNns™N 
roe & nos rusonn 


25-DEC- 


313.54 


MACY11 30A(1052) 


PTREND: 


CPTRLS: 


TRIBLS: 
TRETOT: 


: .WORD 
AD: . 


23-DEC-82 


14:01 PAGE 7 
MESSAGE BUFFERS AND POINTER TABLES 
BUFLIM ; TRANSMITTER BUFFERS 
BUFLIM ;COMPARISON BUFFERS 
BUFLIM SRECEIVER BUFFERS 
MSGLIM* 3 Ther FOR MESSAGE raved &@ BYTE COUNTS 
MSGLIM* ;COMPARE MESSAGE Poin TERS 
MSGLIMe RECEIVE MESSAGE POINTERS 
MSGLIM*2e7 TABLE FOR MULTILINE POINTERS 


WORD 


5252 


COOOD DOCCOCOOCOOOCOOCOOOOOOSO VMAOOCOOCOOOCO woe 
. 
. 


I 6 


; END OF MSG. PTR. TABLE 


of ialee FOR OVERFLOW OF RX ieee TABLE 
BLE FOR MULITLINE RX POINTERS 
iy ABL E the MULITLINE TX POINTERS 


STABLE (BYTES) FOR REC COUNTS 

STABLE (BY-ES) FOR TX COUNTS 

STABLE (&..€S) OF LINE ERS 

: (END OF LINE NUMBER LIST) 

STOTAL NUMBER OF LINES IN LIST 

[CURRENT LINE NUMBER 

[WORD INDEX 

“BYTE INDEX FOR LINES 

COUNTER FOR TX BUFFER COMPLETE INTERRUPTS 
[COUNTER FOR RX BUFFER COMPLETE INTERRUPTS 
STACK POINTER FOR RX INTERPUTS ON STACK 
[STACK POINTER FOR RX INTERPUTS OFF STACK 
[STACK POINTER FOR TX INTERRUPTS 


TX AND RX INT STACKS 


MULT IPLIER 
RECEIVER MESSAGE POINTER 
TTRANSMITTER BUFFER POINTER 
: COMPARISON BUFFER POINTER 
3 CMP MSG TOTAL 
; COMPARE BUFFER CHAR. COUNT 
‘CURRENT ADDR OF CMP BUFF TO ADD AT 


SDEVICE TX A ADOR 

sDEVICE TX CHAR COUNT 

sDEVICE LINE NUMBER (TRIBN) 
sDEVICE TX MESSAGE COUNT 

3TH MSG TOTAL 

31 BUFFER CHAR, COUNT 

sCURRENT ADDR. OF TX BUFF TO ADD AT 
sRECEIVE LINE (TRIBN) 

sDEVICE RX ADDR 

sDEVICE RX CHAR C 

sDEVICE RX MESSAGE COUNT 

sTOTAL NUMBER OF RX MSGS PER LINE 
3 ER GF CPERATOR AWAKE MSGS 
SHOLDER FOR OPTIONAL VARIABLE (1) 
;HOLDER FOR OPTION VARIABLE (2) 
sPASS COUNTER 


SEQ 73 


J 6 


SEQ 74 
CZ7KMSAO wath 4 9: BSt} MACY11 30A(1052)_ 23-DEC-82 14:01 PAGE 75 
CZKMSA.P11 235-DEC=82 13:54 MESSAGE BUFFERS AND POINTER TABLES 
747 010124 000000 ERRCNT: .WORD A ss COUNTER 
748 0101 00000 STADD: .WORD s START ~ a? 
749 0101 0000 ENADD: .WOR ;END ADDR. FOR DUMP 
750 0101 000000 BYTBIT: .WOR sBYTE BIT tea a ri4 ROUTINE 
751 +0101 000000 CLNSET: .WORD SCLEANSET FLAG SET AND CLEARED IN CLEAN U 
75 7 INDICATES 10 SourPut HANDELER THAN NO Quipurs SHOULD 
75 TBE PRINTED 
754 010136 000000 RQIFLG: .WORD 8 ;RQ] FLAG 
755 010140 000000 FILFLG: WORD USED AS FATEL ERROR FLAG 
756 010142 000000 TSSFLG: .WORD 0 USED AS TSS FLAG 
Late 010144 000000 OVRCNT: .WORD 0 USED FOR QUE OVERFLOW FLAG 


K 6 


SEQ 75 
CZKMSAO KMS11580/BE _ cut MACY11 30A(1052) 23-DEC-82 14:01 PAGE 76 
CZKMSA.P11 23=DEC“82 13:54 MESSAGE BUFFERS AND POINTER TABLES 
759 
a ZOTHER MESSAGE RELATED STORAGE LOCATIONS 
762 010146 000000 MSGTYP: .WORD 0 sTYPE OF DATA Os 0°S $,2=10°S, 3201'S 
276 =CCIT 7 5s6uicK +x 6=A ‘PNAS, 7=OPER 
764 010150 000000 CURCC: .WORD 0 STH/RX/CHP CHAR “Eount 
765 010152 000000 CPTRR: .WORD 0 > CURRENT RX POIN 
766 010154 000000 CPTR: WORD 0 [CURRENT POIN ntta 
2767 0°7156 00 CURADD: .WORD > CURRENT TX/RX/ CHP START ADDD a 
2768 010160 000000 TOTCC: . i TOTAL CHAR COUNT NOT MORE THEN ‘'BUFLIM 
769 010162 000000 OFSET: . [OFFSET COUN 
770 010164 000900 TEMP: : TEMPORARY NOCATIONS (USED A LOT) 
771 010166 00000 TEMP): 
772 010170 000000 TEMP2: .WORD 
2773 010172 600000 TEMP3: .WORD 0 
2774 010174 000000 TEMP4: WORD 0 
2775 010176 000000 TEMPS: .WORD 
2776 010200 000 SAVSP 0 sSTACK POINTER SAVE AREA 
2777. 010202 000000 CONOTM: .WORD 0 [CONTROL OUT ERROR MSG. ADDRESS AND Iss AND GSS MSGS. 
2778 010204 GOOD:  .BYTE 0 “BYTE TO HOLD EXPECTED MESSAGE DATA BYTE FOR ERR REPORT 
2779 010205 000 BAD "BYTE 0 “BYTE TO HOLD RECEIVED MESSAGE DATA BYTE FOR ERR REPORT 


L 6 


SEQ 76 
CZKMSAO KRS11; D/BE cul MACY11 30A(1052) 23-DEC-82 14:01 PAGE 77 
CZKMSA.P11 23=DEC-B2 13:54 MESSAGE BUFFERS AND POINTER TABLES 
781 
£8 sMORE INDEPENDENT CODE STORAGE LOCATIONS 
784 010206 000000 LOGUNT: .WORD ;LOC. TO HOLD LOGICAL UNIT NUMBER 
785 010 19 000000 PCADD: .WORD G :LOC. HOLD PC OF CALLING ROUTINE 
786 010212 000000 DCLFLG: .WORD ;LOC. TO HOLD DO CLEAN FLAG 1 IF DOCLEAN INIT 3 IF NOT. 
787 010214 000000 RESFLG: .WORD 9 sLOC TO HOLD FLAG (-1) THAT A RESTART WAS GIVE 
788 010216 000000 MODTYP: :WORD DCL MODE OF OPERATION fT vPE 
789 ; (Q=REC-ONLY ie TX=ONLY , =PASS!VE-LOOPBK, 
2790 ACTIVE-LOOPBK, 4=DOWN L.L., S=TALK, 6= LISTEN) 
791 010220 000000 MLTYP: .WORD 0 MA NTENANCE tOOP TYPE (O=NONE “i= INTERNAL TT 
79 3 2=CABLE, 3=MODEM-ANALOG LOOPEK LOCA ie 
79 i G=MODEM-DIGITAL LOOPBK (REMOTE) tOeMDPS 
794 010222 000000 FHDPLX: .WORD 0 ie ULL OR HALF DUPLEX FLAG (1=FULL tron P=TABLE) 
795 010224 000002 PARAM: .WORD 2 [PROGRAM PARAMETERS 
2796 : BITO= STATUS neces TO OPR PRINTED (1= YES) | 
2797 ; BITI= DATA CHECKING DONE ON RCVD MSGS (1=VES) 
2798 ; Bite ECHO (TRANSMIT) RCV" ° MSG. (PASSIVE) Cie YES) 
2799 : BIT3= MODEM STATUS CHECK (1=YES) 
2800 ; BIT4= CRC CALC./CHECK SONE. (1=VES) 
2801 3 BITS= PROTOCOL EMULATION (1=YES) 
2802 : BIT6= SPAR 
2803 010226 000000 RPASS: .WORD 0 SPASS NUMBER FROM RUN COMMAND 
2804 010230 000000 FLAG: .WORD 0 :DEVICE FLAG WORD 
2805 :BITO = INPUT INT. REC. 
2806 *BIT1 = OUTPUT INT REC 
2807 :B1Te = RX QUED /COMPL 
2808 :BIT3 = TX QUED/COMPL 
2809 8116 = EXPECT TO GET A RX COMPLED 
2810 sBIT? = EXPECT TO GET A TX COMPLETED 
2811 7BIT8 = EXPECT INIT SYSTEM COMPLETED 
eBi2 sBIT9 = EXPECT SET LINE COMPLETED 
281 :BIT10 = STATUS REPORT EXPECTED 
381% 7B1T11 = TRANSMIT TIMEOUT OCCURRED 
2816 
2817 
2818 ZMODE DISPATCH TABLE 
2820 010232 060736 MODE: .WORD RXONLY ;RX ONLY DISPATCH 
2821 010234 060764 «WORD TXONLY :TX ONLY DISPATCH 
3822 010236 061022 -WORD PLCK PASSIVE LOOP BACK DISP 
382 010240 061050 . ALCK ;ACTIVE LOO DISe 
B24 010242 062324 -WORD LL 3DOWN LINE LOAD DISP 
2825 010244 062350 ~WORD TALCK :TALK MODE DISPATCH 
in 010246 062602 -WORD LISCK LISTEN MODE DISPATCH 
828 
829 010250 000000 CLKCSR: WORD :CLOCK CSR ADDRESS 
830 010¢5¢ 000000 CLKBR: WORD :CLOCK INTERRUPT LEVEL 
831 010254 000000 CLKVEC: : WORD :CLOCK INTERRUPT VECTOR 
B32 010256 000074 CLKH2: WORD 60. CLOCK*S HERTZ RATE 
B35 010260 000000 CLKEN: .WORD 0 :CLOCK'S CSR VALUE TO INTRPT. ENABLE IT 
835 010262 000000 TIMMIN: .WORD 0 ;PLACE TO KEEP TIME-SINCE-START 
2836 010264 000000 TIMSEC: . WORD 


Mm 6 


SEQ 77 
CZKMSAO KAS11 580 OE psuy MACY11 30A(1052) 23-DEC-82_ 14:01. PA GE 78 
CZKMSA.P11 =DEC-82 13:54 CLOCK TABLES, EVENT LOG AND POINTERS 
2538 010266 000000 TIMTCK: .WORD 0 sPLACE TO KEEP # OF TICKS/SEC 
839 910270 000000 TIMER]: .WORD 0 sEVENT TIMER #1 (TICK tH 
2840 72 000000 TIMER2: .WORD 0 SEVENT TIMER “ (TICKS 
§ 010374 000000 TIMERS: .WORD 0 ‘EVENT TIMER @ (SECONDS) 


841 
842 


N 6 


SEQ 78 
CZ7KMSAO EAs D/BE DCLT MACY11 30A(1052) - sex Phare 14:01 PAGE 79 
cftnsae P11 235-DEC-82 13:54 K TABLES, EVENT LOG AND POINTERS 
843 
Bee sEVENT LOG TABLE AND ITS NEXT ENTRY POINTER 
846 010276 010300 EVTPTR: .WORD EVTLOG ;POINTER TO NEXT FREE SPACE IN EVENT LOG 
847 010300 177777 EVTLOG: .WORD #1 > SPECIFY EVENT LOG IS EMP 
848 010302 000415 -BLKW 269. ‘EVENT LOG BUFFER 
011334 000001 EVTEND: .BLKW 1. ‘APPROXIMATE END OF EVENT TABLE (ALLOWS CIRCULAR QUE) 


8 7 


SEQ 79 
CZKMSAO EAS 11 BOE psul MACY11 30A(1052) 23=DEC-82 14:01 PAGE 80 
CZKMSA.P11 25-DEC-82 13:54 MODEM DATA SECTION 
3836 
$2? 011336 000000 MODS: .WORD 0 ;MODEM STATUS 
2857 ;TABLE OF MODEM SIGNAL BIT DEFINITIONS 
2859 011340 000000 MOBITS: .WORD CTS sCLEAR TO SEND (CIRCUIT CB) 
2860 011342 000000 «WORD DSR :DATA SET READY (CIRCUIT CC) 
2861 011344 000000 . DCD sDATA_ CARRIER DETECT (CIRCUIT CF) 
oboe 011346 000000 . RTS REQUEST TO SEND (CIRCUIT CA) 
286 011329 000000 oW RI RING INDICATOR (CIRCUIT CE) 
2864 011352 000900 ° $Qd sSIGNAL QUALITY DETECT (CIRCUIT CG) 
2865 011354 000000 oW ™ MODEM IN TEST MODE (RS 449 ONLY CIRCUIT TM) 
spe6 011356 MOBITE: 
seee ;TABLE OF ADDRESSES OF MODEM SIGNAL MESSAGE POSITIONS 
2870 011356 021613 MOMSGS: .WORD EVMCTS CLEAR TO SEND (CIRCUIT CB) 
2871 011360 021617 -WORD EVMDSR sDATA SET READY (CIRCUIT CC) 
gore 011362 021623 ~WOR EVMDCD DATA CARRIER DETECT (CIRCUIT CF) 
28735 011364 aha tA ° EVMRTS REQUEST TO SEND (CIRCUIT CA) 
2874 011366 021633 . EVMRI :RING INDICATOR (CIRCUIT CE) 
2875 011370 021637 . EVMSQD SIGNAL QUALITY DETECT (CIRCUIT CG) 
$876 011372 021643 » WORD V s;MODEM IN TEST MODE (RS 449 ONLY CIRCUIT TM) 


¢ 7 


SEQ 80 
CZ7KMSAO KRS11-90/08 | pout MACY11 30A(1052) 23- pec B82 14:01 PAGE 81 
CZKMSA.P11 25-DEC-82 13:54 EVENT DESCRIPTION MESSAGES LOCATIONS AND TABLES 
78 
880 TABLE OF ADDRESSES OF EVENT DESCRIPTION wm MESSAGES 
oe) : ORDER CORRESPONDS TO MESSAGE TYPE VALUES 
288 01137 017440 EVTILST: .WORD EDTXQ ;TRANSMIT MESSAGE QUEUED 
B84 011376 017464 .WORD EDTXC ;TRANSMIT OF MESSAGE COMPLETE 
885 011400 017513 «WORD EDRXQ ;RECEIVE MESSAGE SPACE QUEUED 
886 011402 017540 «WORD EDRXC ;MESSAGE RECEIVED - RECEIVE COMPLETE 
887 011404 01756 -WORD EDDER ;DEVICE INFORMATIO 
888 011406 01763 -WORD EDDVI ;DEVICE INITIALIZE STARTED 
889 011410 01760 .WORD EDDCK ;DATA COMPARISON DONE 
2890 011412 016417 «WORD LPO sNULL STRING 
2891 011414 017661 .WORD EDDLE ;DATA COMPARE LENGTH ERROR 
2892 011416 017716 WORD EDDDE  ;DATA COMPARE DATA ERROR 
2893 011420 017751 -WORD EDEOP ;END OF PASS 
seze 011422 020022 «WORD EDABO ;°C ABORT 
at] LOCATIONS USED DURING EVENT REPORTING 
2898 011424 000000 EVTSEC: .wORD 0 TEMPORARY LOCS TO KEEP EVENT TIME WHILE REPORTING 
2899 011426 000000 a EVTMIN: .WORD 0 
2900 011430 000000 EVTTCK: .WORD 0 
2901 011432 000000 EVTADD: .WORD 0 ;TEMP. LOC. TO HOLD ADDRESS DURING EVENT REPORTING 
2902 011434 000000 EVTBCT: .WORD 0 : - "* BYTE COUNT = °° . - 
$303 011436 000000 EVTTMP: .WORD 0 ; OTHER DATA 
44 REPORT CODING DISPATCH TABLE 
2907 011440 025614 RPTDSP: .WORD RPTTXQ ;TRANSMIT QUEVED ENTRY DECODING 
2908 011442 025614 .WORD RPTTXQ ;TRANSMIT COMPLETE ENTRY DECODING 
2909 011444 025614 .WORD RPTTXQ ;RECEIVER QUEVED ENTRY RDECODING 
2910 011446 025614 .WORD RPTTXQ ;RECEIVER COMPLETE ENTRY DECODING 
2911 011450 025666 .WORD RPTDER ;DEVICE ERROR ENTRY DECODING 
2912 011452 026316 .WORD RPTOVI ;DEVICE INIT ENTRY DECODI 
2913 011454 026526 WORD RPTOCK spAtA COMPARISON ENTRY DECODING 
2914 011456 000000 «WORD 0 LACE HOLDER 
2915 011460 026526 «WORD RPTOLE DATA COMPARISON LENGTH ERROR 
2916 011462 026446 «WORD RPTDDE :DATA CORPARISON DATA ERROR 
2917 011464 026366 .WORD RPTEOP ZEND 0 
sore 011466 026366 -WORD RPTABO 
2920 
2921 011470 000000 DEV1 -WORD 0 TEMP LOCS TO HOLD DATA FOR EVENT REPORTING 
2922 011472 000000 DEV2: .W 0 + AND SHOW MODE,... SUBROUTINE 
923 011474 000000 DEV3: .WORD 0 
ose 011476 000000 DEV4: -WORD O 
926 011500 000000 DEVS1: .WORD 90 TEMP DATA FOR STATUS REPORTS 
927 011502 000000 DEVa¢: «WORD O 
928 011504 000000 DEVS3: .WORD 0 
2929 011506 000000 DEVS4: .WORD 0 
2930 011510 000000 LINEST: .WORD 0 LINE NUMBER OF STATUS DATA 
2931 011512 000000 ENRDST: .WORD 0 := 1 READ STATUS ENABLED. SET = 1 IN KSTART 
2932 = 0 READ gTATUS DISABL ED SET = 0 _IN BGNCLN 
2933 011514 000000 VSTAT: .WORD 0 s= 1 STATUS DATA IS VALID. SET = 1 IN LNSTAT 


d 7 


23-0 ors C82 yd 01 PAGE 82 
RIPTION MESSAGES LOCATIONS AND TABLES 


2934 0 STATUS DATA NOT VALID. SET = 0 IN KSTART 
2935 011516 000000 CNTCLN: .WORD 0 COUNT OF EXCURSIONS THRU + aa CODE 
2936 : SINCE LOAD OF DCLT PROGRA 


SEQ 81 
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SEQ 82 
C7KMSAO_KMS11-BD/BE DCLT MACY11 30A(1052) 23=DEC=82_ 14:01 PAGE 83 
CZKMSA.P11 = 23=DEC-82 13:54 COMMAND LINE ACTION TREE 

937 

2338 ;SAMPLE CLI TREE NODE (ALWAYS AT LEAST 1 WORD) 

9c) ; ! ACTION ! CHAR CODE ! 

$96 ; | MISS DISPLACEMENT ! ONLY IF "MISS'’ ARGUMENT DEFINED 

946 ; | NEXT NODE DISPLMNT ! ONLY IF ASCII" ARGUMENT DEF INED 

2946 ; 1 ASCIZ MATCH STRING ! ONLY IF "ASCII" ARGUMENT DEF iNED 

947 ; (.EVEN) ! 

949 

950 

2951 011520 CLITRE: 

295 , 

295 ;FIRST KEYWORD 

2954 011520 Cul CLISPA,0,N10$ ;SKIP ANY LEADING SPACES ‘ 
2955 011526 N10$: CLI <"2>, HLPLNG2S 1S THE FIRST NON-SP CHAR A ‘'?" 
2956 011530 Cul CLIEKI,0 :_ IF YES DO "“'HLP'’ AND EXIT 
2957 011532 NO2$: CLI CLISTR,HLP,NG3$,<"HELP*> ELSE. 1S FIRST WORD A “HELP 
2958 011546 cul CLIEXI,O :_ IF YES DO “HLP’ AND EXIT 
2959 011550 NG3$: CLI CLISTR.PRNT ,NG4S,<*PRINT "> ZELSE, IS FIRST WORD A “PRINT 
2960 011564 Cul CLIEXI.0 : IF’ YES DO PRINT’ AND EXIT. 

961 011566 N4G$: CLI CLISTR,EXIT,NGSS$,<"EXIT"> ZELSE, 1S FIRST WORD A “EXIT 

962 011602 Cul CLIEXI.0 : IF YES DO “EXIT'’ AND EXIT, 
2963 011604 N4S$: CLI  — CLISTRRUN.N46$,<*RUN'> SELSE, 1S FIRST WORD A “'RUN 
2964 011616 Ctl CL 18R,0,N : IF’ YES DO “RUN & GOTO N80S 
2965 011622 NG6S: CLI CLISTRNOTNUF NGOS,<*DUMP’> = ELSE, IS FIRST WORD A ‘DUMP 
2966 011636 (Ll — CLIBR,O,N : IF YES GOTO N8OS = 
2967 011642 NGOS: CL! CLISTR,CLEAR,NG7S,<"CLEAR'> § SELSE, IS FIRST WORD A ‘'CLEAR 
2968 011656 cui CLIBR,NOTNUF ,N : IF YES DO CLR’ & GOTO N100$ 
2969 011662 N47$: CLI CLISTR NOTNUF ,N2O$,<*LINE'> ELSE 1S FIRST WORD LINE 

2970 011676 Cul CLIBR,O,NI05$ Nae 
2971 011702 N20$: CLI <*S> ,NOTNUF ,N30$ ELSE, IS FIRST CHAR. A''S 
2972 011706 Cul CLISTR, SHOW N25S,<"HOW'> ; IF YES 1S REST OF WORD ‘HOW 
2973 011720 Cul CLIBR,O,N1 ; _ IF YES, DO "'SHOW''.BR N100$ 
2974 011724 N25$: CLI CLISTR,O,N30$,<"ET"> ; ELSE, IS°REST OF WORD 

2975 011736 Cul CLIBR,O,N1108 : IF YES, DO ‘'SET'’, BR NI10$ 
2976 011742 N30$: CLI CLIERR,O ZOTHERWISE “ILL CMD = EXIT 
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SEQ 83 
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CZKMSA.P11 —-23=DEC-B2 13:56 COMMAND LINE ACTION TREE 
$318 ;SECOND KEYWORD (MODE=) FOR RUN COMMAND 
979 011744 N80$: CLI CLISPA, 0,N30$ :SKIP LEADING SPS, IF NONE-ERR 
2980 011750 N81$: CLI CLISTR, TNUF ,N30$,<"MODE > :1S NEXT WORD ‘MODE="* 
2981 011764 Cul < *N IF NO, IT?S, WRONG =ERR EXIT 
982 011770 Cul CListR, ATVMOD .NB2S,<*ACTIVE"> 1S NEXT WORD “‘ACTIVE'’ 
983 012006 Cul CLIBR $° F YES, DO “‘ACTIVE',BR N115$ 
2984 012012 N82$: CLI CLISTR PASHOD.NB3S,<*PASSIVE*> HIS NEXT WORD “PASSIVE” 
2985 012030 Cul CLIBR,O,N115$ FY O ‘'PASSVE'',BR NI15$ 
2986 012034 N83$: CLI CLISTR,RECMODNBGS,<"RECEIVE'> 21S NEXT WORD “RECEIVE” 
987 012052 Cul CLIBR,O,N ; IF YES, DO ‘'RECVE'',BR N115$ 
988 012056 N84$: CLI CLISTR -LISMOD.NBS$,<"LISTEN’> 31S NEXT WORD “LISTEN 
2989 012074 Cul CLIBR,O,N11 IF YES 00. yu STEN'.BR N115$ 
2990 012100 N85$: CLI CLISTR BLLMOD. N86$, <*DOWNLINELOAD*> ;1S NEXT WORD “DOW... 
2991 01 124 Cul CLIBR,O,N ves, 00 *DWNLL “ABR Nii5$ 
2992 012130 N86$: (CLI <*T>,6,N 3 faa” NEXT CHAR AT" 
2993 012136 Cul CLISTR, TRAMOD,N87$,<"RANSMIT’> : IS REST OF RUORD “"RANSMIT"’ 
2994 012152 Cul CLIBR,O,N ; IF YES, DO “'TRANSM'',BR N1I15$ 
2995 012156 N87$: (CLI CLISTR, TALMOD .N30$,<"ALK"> : 1S REST OF WORD "ALK 
2996 012170 Cl CLIBR,O,N115$ : IF YES, DO 'TALK''.BR N115$ 
997 : IF NO, ERROR = EXIT 
2999 sSECOND KEYWORD (FOR CLEAR OR SHOW) 
000 012174 N100$: CLI CLISPA,0,N30 saa LEADING Paget t NONE = ERR 
001 012200 n102$ CL] CLISTR,CSHEXP,N104$,<"EXPECTBUFF ’> 31S NEXT ORD “EXPE... 
002 012222 Cul CLIEXI.0 : IF YES, “00 CLROEXB. éxtt 
$00 012224 N104$ CLI CLISTR, CSHTRN,N30$,<° TRANSMI TBUFF *> 31S NEXT WORD RAN 
004 012250 C.l CLIEXI,0 : IF YES, DO CLRTRN. EXIT 
3005 [IF NO - ERROR - EXIT 
3006 
007 
3008 sSECOND KEYWORD (FOR SET) 
3009 012252 N110$: CLI CLISPA,0,N30$ 
3010 012256 N111$: CLI CLISTR,SETEXP,N112$,<°EXPECTMSG’> 
3011 012276 C.l CLIBR,O,N120$ 
3018 012302 N112$: CLI CLISTR, SETTRN,N30$,<* TRANSMI TMSG"> 
3013 012324 Ctl CLIBR,O,N120$ 
3015 :GET ADDRESSES FOR DUMP COMMAND 
3016 012330 N50$: CLI CLIALP,O,N51$ 
3017 012334 N51$: CLI CLISPA,0,N52$ 
3018 012340 N52$: (CLI CLIOCT.OMPS ,.N30$ 
019 att cr CLI <'=>, NOTNUF ,.N125$ 
020 012350 Ctl CLIOCT ,DMPE .N30$ 
3021 012354 CLI <'/>,NOTNUF .N125$ 
3022 012360 Cl <"B>.DMPQ,NS0$ 
3023 012364 Ctl CLIBR,O,NI25$ 
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SEQ 85 


oO 
ya 
NO 


AL Ponte i Te ,FOR SET MESSAGE COMMANDS 


04 

O47 012560 =>,0,N30$ 

049 : LOOK FOR DEFAULT MESSAG NAME 

050 012564 N60$: CLI CLISTR 1 ,N618, <"ONES*> 

051 012600 Cul CLIBR 6m 

03¢ 012604 nN6O1$: CLI CLISTR i Q N62$,<'ZEROES'> 

053 012622 Cul CLIBR, 6.N 

054 012626 N62$: CLI CLISTR ths N63$,<"TALT"> 

055 012642 ae CLIBR, 6.N 

05 91 646 N6O3$: CLI CLISTR ins ; N64$,<"OALT'> 

057 012662 Cul CLIBR A 

058 012666 N6O4$: (CLI CLISTR tns ! N65$,<"ITEP"> 

059 012702 CL] CLIBR,O,NI21 

060 012706 N65$: (CLI CLISTR ensga N66$,<°CCITT'> 

061 012722 Cul CLIBR,O,N 

06¢ 012726 N6O6$: CLI CLISTR énsGs N67$,<"ALPHA'> 

306 012742 Cul CLIBR,O,NI21 

064 012746 N67$: (CLI CLISTR, SETET NOBS,<* TRANSMIT "> 

3065 012766 Cul CLIBR,O,N125$ 

3067 ; LOOK FOR QUOTED MESSAGE 

3068 012772 N6O8$: CLI <*""> ,OPRMSGN30$ 

3069 012776 N70$: (CLI <"**>°ENDOO,N71$ 

070 013002 Cul CLIBR,O,N121$ 

071 013006 N71$: CLI — CLISPA,O,N728 “ 
3072 013012 n72$: CLI CLIALN,O,N73$ ONLY A-Z7,SP,TAB, OR 0-9 BETWEEN ‘'*S 
3075 013016 CLI CLIBR,0,N70$ ie 
074 013022 N73$: (CLI CLIERR,BADCHR :PRINT ERROR IF NONE LEGAL CHAR FOR ‘*S 
076 SGET QUALIFIERS (SIZE OR COPY) FOR SET MESSAGE COMMANDS 

3077 013024 N121$: CLI CLIALP,O, Ni23$ 

3078 013030 N123$: (CLI </>, NOTNUF ,N125$ 

3079 013034 Cul CLISTR Siz *N192$, <"SIZE*> 

3080 013050 Cul CLIBR t 

3081 013054 N122$: (CLI CLISTR scopy N30$.<*COPY'> 

308 01307 Ctl CLIBR,O,N126$ 
3084 ZNUMER FOR SIZE OR COPY 

3085 013074 N126$: CLI <'=>,0,N30$ 

3086 013100 Cl CLIDEC .NUM,N30$ 

3087 013104 Cul CLIBR, ys N121$ 
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088 GET MAINTENANCE LOOP TYPE FOR RUN "'LOOP’’ QUAL/FIER 
$e 013110 N140$: CLI or NSS 
091 
09¢ 013114 N161$: (CLI CLISTR TTLLOP.N142S, <* INTERNAL TTL *> 
093 013136 Cul CLIBR,O,N115$ 
094 013142 N142$: (CLI CLISTR, CBLLOP.N143$,<" CABLE '> 
095 013156 Cul CLIBR,O,N 
0% 013162 N163$: CLI CLISTR,LMDLOP,N144$,<"LOCALMODEM’ > 
97 013204 Cul CL16R,6,N 
098 01 310 N144$: (CLI CLISTR RMDL OP .N3OS,<*REMOTEMODEN" > 
099 01323 Ctl CLIBR,O,N115$ 
101 :GET NUMBER FOR “PASS” RUN QUALIFIER 
10¢ 013236 N150$: CLI <*=>,0,N350$ 
10 01 32h¢ Cul CLIDEC PASC ,N30$ 
104 013246 Cul CLIBR,O,NI15$ 
106 sGET LINE SHOW OR LINE FOR KILL OR ESTABLISH 
3107 013252 105$: CLI CLISPA.NOTNUF ,N106$ 
3108 013256 N106$: CLI CLISTR.SLST,NIO7$,<" SHOW"> 
3109 013272 CL] CLIEXI,0 
3110 013274 n107$: (CLI CLISTR,ETRB,NIO8$,<°ESTABLISH'> 
3111013314 CLl CLIBR,O.N16 
3112 013320 N108$: (CLI CLISTR,KTRB,N30$,<°KILL "> 
113 013334 Cul CLIEXI.O 
18 013336 N160$: CLI <*=>,0,N30$ 
3116 013342 N161$: CLI CLISTR.KALLN162$,<"ALL "> 
3117 013354 N162$: (CLI CLIDEC.EKTB,N30$ ) 
3118 013360 N163$: CLI 54, NOTNUF .N125$ SLOOKING FOR “*, 
3119 013364 Cl CLiBR,O.N161$ 
3159 3s END=OF =L INE 
3122 013370 Ni25$: CLI CLIEXI,0 
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ICE DEPENDENT STORAGE LOCATIONS FOR 
URRENT DEVICE PARAMTERS 
000000 - WORD 
000000 ~ WORD 


- WORD 
«WORD 


ZADDRESSES OF REGISTERS SELO THRU BSEL7 
000000 
000000 


000000 
000000 
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013412 000000 INVEC: .WORD 0 INPUT INTERRUPT VECTOR ADDRESS 
144 013414 000000 OUTVEC: .WORD 0 SOUTPUT INTERRUPT aes Pom ADDRESS 
145 013416 000000 INTPRI: .WORD 0 INTERRUPT PRIORITY 
146 013420 000000 OPTYP: .WORD 0 ZOPTION TYPE 
147 Q1 sf 000000 DEVPAR: .WORD 0 
148 0135424 000000 STATYP: .WORD 0 
3160 013426 000000 MODCSR: .WORD 0 CSR OF MODEM CONTROL MUX (DM11-BA) 


SEQ 88 
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151 
Hi 3: (KMS11<BD BUFFER DESCRIPTOR LISTS) 
1 54 e ener em ene enw nenren ete ee aenwrewor seo = 
3156 $ 'STATUS ! : MEMBER ‘‘N’’ 
157 : ‘BUFFER START ADDR 
31 S58 [EEE ee Pee mre me HY oS al eee wow 
123 3 'WOF CHARS (14B1TS) ' 
161 : ' MESSAGE # ; 
166 seen ecw = > Ge ce an me a os a oe m_—wa eS e SS w 2_2 
164 013430 000000 BDLMNM: .WORD 0 sLOC TO CALCULATE BOL MEMBER NUMBER 
$18? 3 2 000000 soe: ~ WORD sLOC TO CALCULATE BDL MEMBER ADDRESS 
3167 01 000004 RXBDL: .BLKW 4 ; MEMBER #1 (RX FOR LINE 0) 
168 013444 000004 “BLKW OG > MEMBER a (RX FOR LINE 1) 
169 013454 000004 “BLKW OG : MEMBER #3 (RX FOR LINE @) 
170 013464 000004 “BLKW OG : MEMBER #4 (RX FOR LINE 3) 
171 013474 004 “BLKW OG : MEMBER #5 (RX FOR LINE 4) 
72 013504 “BLKW OG + MEMBER "6 (RX FOR LINE 5) 
173 013514 0 *BLKW OG : MEMBER #7 (RX FOR LINE 6) 
174 01356 000004 “BLKW OG : MEMBER #10 (8.) (RX FOR LINE 7) 
175 0135 000004 TXBDL: .BLKW 4 : MEMBER #11 (9.) (TX FOR LINE 0) 
176 Ot 82e6 000004 -BLKW 4 ; MEMBER alg (10.) (TX FOR LINE 1) 
177 013554 000004 -BLKW 4 3: MEMBER #135 (11.) (TX FOR LINE $3 
i768 033564 000004 “BLKW OG + MEMBER #14 (1g) (TX FOR LINE 3) 
179 013574 04 -BLKW 4 : MEMBER #15 (15.) (TX FOR LINE 4) 
180 013604 000004 *BLKW OG + MEMBER #6 (14.) (TX FOR LINE 5) 
181 013614 000004 -BLKW 4 3; MEMBER #17 (15.) (TX FOR LINE 6) 
182 013624 000004 BLKw 4 : MEMBER #20 (16.) (TX FOR LINE 7) 
183 0136 BDLEND 
185 sKMS RESPONSE COUNTS... 
186 013634 000000 ILLRSP: .WORD sCOUNT OF ILLEGAL RESPONSES FROM KMS 
187 013636 000000 STARTC: .WORD sCOUNT OF RESTART DDCMP COMPLETED 
188 013640 000000 ERRTHR: .WORD sCOUNT OF KMS ERROR THRESHOLD REACHED RESPONSES 
189 013642 0 RXMIT: .WORD SRETRANSMIT SPECIFIER 
191 -NAK REASON CODES 
198 013644 000002 000003 NAKX:  .WORD 1,2,3,8..9.,16.,17..°1 
19 013652 000010 900011 000020 
194 013660 000021 177777 
196 sPOINTERS TO NAK REASON MESSAGES 
197 013664 023075 NAKMSG: .WORD &#NAKR1 
198 013666 0231 eWORD #NAKR 
199 13670 0231 eWORD @NAKR 
209 013672 9 72 "WORD = #NAKR 
201 13674 321 ~ WORD @NAKR 
202 013676 023235 "WORD #NAKRI 
203 013700 9 3256 "WORD #NAKRI 
204 013702 023306 "WORD #NAKROO 
206 
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CZKM Pil 13:54 MISCELLANEOUS STORAGE FOR ERROR REPORTS 
07 013704 ERRTBL 
208 013704 LSERRTBL:: 
09 013704 000000 ERRTYP:: «WORD 0 
210 013706 000000 ERRNBR: : «WORD O 
$i 013710 000000 ERRMSG:: WORD 8 
sig 013712 000000 ERRBLK:: WORD 
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SEO 90 
CZ7KMSAO KMS11-BD/BE DCLT MACY11 30A(1052) 23-DEC-82 14:01 PAGE 91 
CZKMSA.P11 Lette 13:54 GLOBAL TEXT SECTION 
14 +4 
15 ; THE GLOBAL TEXT SECTION CONTAINS FORMAT STATEMENTS, 
16 ; MESSAGES, AND ASCII INFORMATION THAT ARE USED IN 
V7 : MORE THAN ONE TEST. 
19 ? 
3389 .SBTTL DEVICE SUPPORTED 
92¢ 3 NAMES OF DEVICES SUPPORTED BY PROGRAM 
333 013714 DEVTYP <KMS11-BD,BE 
- e > 
227 013714 LSDVTYP:: 
308 013714 046513 030523 026461 sASCIZ /KMS11-BD.BE/ 
229 013722 042102 041054 000105 
3230 -EVEN 
3231 
232 
3233 .SBTTL PROGRAM IDENTIFICATION 
3234 ; TEST DESCRIPTION 
353 ; 
3237 013730 DESCRIPT <CZKMSAO KMS11-BD,BE DATA COMM. LINK TEST> 
3238 013730 LSDESC:: 
3239 013730 055103 046513 040523 .ASCIZ /CZKMSAO KMS11-8 
3240 013736 020060 046513 030523 
3241 013744 026461 042102 041054 
3242 013752 020105 040504 040524 
3048 013760 041440 046517 027115 
244 013766 046040 047111 020113 
3245 013774 042524 052123 000 
3246 014002 .EVEN 
3267 
3248 EVEN 
3249 
3250 
3251 
3252 
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TEMENTS, MESSAGES 
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eASCIZ = \2NZALI 
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=%D5/ 


ILL HANG ON ‘'TIMEQUT'’! !/ 


MSG COUNT EXCEEDED -/ 
ZARECEIVE COUNT 


/ 


DS BUFF _LIMIT = MSG TRUNCATED/ 


PASS=%75? 
IN MSG = 2D5/ 
20 


t!/ 
2052S 


TH ERROR/ 


NXZALIS>/ 
0. OR 60. HZ. LSI-11:/ 
IT AND SETUP/ 
ARISON LENG 


LK>/ 


HIS A 5 
ZNZASTATUS NOT AVAILABLE UNTIL NEXT DCLT>RUNZN/ 


ZNZACLOCK NOT FOUND/ 
PENZSSZSSZSSZA/ZTLA/ZTRA/ATLA/2T? 
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; FORMAT STATEMENTS USED IN PRINT CALLS 


EVENT DESCRIPTION MESSAGES 


000 OPRMM: 


020123 15060: 
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SEQ 93 
CZKMSAO KMS11-BD/BE DCLT MACY11 30A(1052) 23-DEC-82 14:01 PAGE 94 
CZKMSA.P11 FR OEE BS 13:54 GLOBAL FORMAT Cie temENse. MESSAGES, AND ASCII INFO 
1771 0605 & 0405246 041440 EDDDE: .ASCI /DATA COMPARISON DATA ERROR/ 

FAY OTe BHU RS UR RELL Aedet Aben stare comet 
020022 0015 6 040440 047502 EDABO: <ASCIZ /*C ABORT 

sEVENT REPORTING MESSAGES 

THE FOLLOWING ARE USED IN THE DUMP SUB ROUTINE 
020033 045 031328 047445 BASM3: .ASCIZ /%S3%03/ 
020042 051445 46 117 BASM2: .ASCIZ /%S3%06/ 
ad 945 Etat geai19 BASM1: .ASCIZ /%N%06/ 
020057 045 033216 0 $101 NULEVT: .ASCIZ /ZNZATHE DCLT EVENT LOG IS EMPTY/ 
020117 045 2516 037101 EVTFO: .ASCIZ /2ZNZA>>> DCLT EVENT OG, ENTRY <<< 6666 EEE K KEKE KEKE KEKE KK / 
o50812 Bee é 218 032506 EVTF1: .ASCIZ /2NZDSRA:222RA:%222S52T/ 
0202464 04704 144 0S 46 evitG: eASCIZ (ees enney™ OF MSG=Z06%S3%ABYTE COUNT=%D5/ 
020316 047045 051445 0224635 EVTF3: .ASCIZ /2NZSS52TZN/ 
020330 040445 020040 04252 HARE eASCIZ /ZA_ SELO = ZO6ZA SEL2 = %06/ 
020366 051445 0 $6 83 117 EvTF3D: .ASCIZ /4S3x06%S 206%S S32T/ 
020410 051445 0224663 033117 EVTF3F: .ASCIZ /2%S5%06%S eee NO.=%23/ 
020446 051445 0 sve 046101 EvTF40: .ASCIZ /%S * EN 
020472 051445 02246 Brett EVIEAS: eASCIZ /%83%03%S6203/ 
020507 045 03152 474645 EVTF43: .ASCIZ Ait ths %03%S6%03/ 
020532 051445 022463 031517 EVTF44: .ASCIZ /%S32032S52T/ 
020546 051445 022463 052101 EVTF6: .ASCIZ /2S3ZATO-FROM LINE NO.=223/ 
020600 047045 051445 oeees EVTF4B: .ASCIZ TENES SEAS LD5%S3ZAERRORS= kd aR ee eh 205/ 
020657 045 022516 03152 EVTF4: .ASCIZ /2NZSSZAADDR OF MSG=Z06%S3ZABYTE COUNT= ZD5ZS3%ANO. OF CMP ERRS=2D5/ 
020761 04 022516 03152 EVTFGA: .ASCIZ /2NZS3ZAADDR OF mS rOsks SZARK BYTES= %D5%S 3ZACOMPARE BYTES=%05/ 


021057 045 032523 040445 EVIFSA: .ASCIZ /%SSZABYTE # IN MSG.=%D5%S3ZAEXPTD=2%032S3ZARECVD=203/ 


021143 022516 051501 EVTFS1: .ASCII] /ENZASTATUS REPORT/<15><12> 

021166 040445 044514 04251 SASCIZ /ZALINE NUM = %03/ 

021207 0 022516 031523 EVIFS2: .ASCIZ /ENES3ZASTATU = ZO3%S3ZAFLAGS = 403/ 

021264 047045 051445 022463 EVIES CASCIZ /ENZS$ZATEMP DATA = ZOS3SSZALAST IX MSG = 403/ 

021341 045 022516 0 1525 EVIE’ : .ASCIZ /ENESSEAACKS RCVD = YO3US3ZAMSGS RCVD = %03/ 

O2141g 047045 O51445 022463 EVIFS2 “ASCIZ /2NZS3ZANAKS SENT = TOSESSZANAKS RCVD = 203/ 

021473 022516 034523 EVMOCG: .ASCIZ /ENESORACHANGED TO:/ 
3 SAHARA AAAHAAARERAH AAA AAAAAAAAAAAARAREAARAAAAAAAAAAAAAAKAAAAAAAAAAAAT 
DO NOT SEPARATE THE NEXT LIST OF MESSAGES = MODEM SIGNAL HEADER AND REPORT 

021516 067065 051445 022470 EVMOHD: .ASCIZ /ENESBEAMODEM STATUS: CTS DSR DCD RTS RI SQD TM/ 

021576 047065 051445 022471 EVMOST: .ASCII /2NZS9ZS9 

02161 130 040 40 EVMCTS: .BYTE Dar et 

021617 130 040 40 EVMDSR: .BYTE  °X.40.40.40 

021623 130 040 40 EVMDCD: .BYTE  'X.40.40.40 

021687 130 040 40 EVMRTS: .BYTE ‘X.40.40,40 

021633 130 040 40 EVMRI: .BYTE ‘'X.40,40.40 

021637 130 40 40 EVMSQD: .BYTE  ‘X,40,40,40 

021643 130 4 40 EVMTIM: .BYTE ‘X,40,40,40 

021647 000 “BYTE 0 
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23-DEC-82 14:01 PAGE 95 
GLOBAL FORMAT STATEMENTS, MESSAGES, AND ASCII INFO 


sEXECUTION STATUS MESSAGES TO BE PRINTED TO KEEP OPERATOR AWAKE 
tR: astz /%N/ :CR FOR LINES IN A ROW 
STXQ: <ASCIZ /%S3%ATXO/ ABOUT TO TRA ANSMIT 
STXC: eASCIZ /2S35ZATXC/ ‘TK COMPLET 
SRXxXQ: “ASCIZ /2ZS35ZARKQ/ ; ABOUT TO RECEIVE 
SDVE: eASCIZ /2S35ZAERR/ sDEVICE ERR 
SCM: eASCIZ §=/2S3ZACMP/ sABOUT TO DO para CHECKING OF RECVD vS. EXPTD 
SDVI: eASCIZ /2S3ZAINI/ {DEVICE AB TO BE INITIALIZED 
SCML:  .ASCIZ /2S3ZACML/ s COMPARE BOUGTH ER 
SCMD: .ASCIZ /%S3%ACMD/ : COMPARE DA 
SEOP:  .ASCIZ /ESSEAEOP/ END OF PASS 
SMSC: ASCE /%S3ZAMSC/ :MODEM STATUS CHANGE 
DEVICE ERROR MESSAGES 

DEVICE ERROR MESSAGES enon ERRORS DETECTED IN PDP-11 
DVEMO: .ASCIZ /KMS FAILED TO START/ 
DVEM1: .ASCIZ /KMS DID NOT OE SPOND TO CSR COMMAND 
DVEMIA: .ASCIZ /WAITING TO COMPLETE DEVICE RT TTAL TZATION/ 
DVEMIB: .ASCIZ /WAITING FOR START DDCMP REQ UEST TO COMPLETE/ 
DVEMG: eASCIZ /TIME OUT WAITING FOR TX OR RX TO COMPLETE/ 
DVEM eASCIZ /KMS DID NOT RESPOND TO Rol/ 
DVEM4: .ASCII /ILLEGAL TRANSMIT COMPLETE/ 

eASCIZ <15><12>/ LI 0 
DVEMS eASCII /ILLEGAL RECEIVE COMPLETE/ 

eASCIZ <15><12>/ LINE NO BDL NO/ 

DEVICE ERROR MESSAGES FOR CONDITIONS REPORTED BY KMS11 

DVEM11: .ASCIZ /DDCMP RESTART RECEIVED/ 
DVEM14: .ASCIZ /KMS TIMEOUT WAITING FOR RESPONSE TO TX/ 
DVM14B: .ASCIZ /KMS TIMEOUT. NO RESPONSE TO START MSG/ 
DVEM15: .ASCII /TX THRESHOLD REACHED/ 

eASCIZ <15><12>/ LINE NO  WNAK REASON/ 
DVEM17: .ASCII /TX REJECTED BEFORE COMPLETION/ 

eASCIZ <15><12>/ LINE NO BDL NO/ 
DVEM33: .ASCIZ /KMS TIMEOUT WAITING FOR CSR INP 
DVEM34: .ASCIZ /KMS TIMEOUT. CSR OUTPUT NOT Ieee PtED/ 

REASON MESSAGES 

NAKR1: .ASCIZ /HEADER rock CHECK ERROR/ 
NAKR2: .ASCIZ /DATA BLOCK CHECK ERROR/ 
NAKR3: .ASCIZ /REP RESPONSE/ 
NAKR8: .ASCIZ /BUFFER UNAVAILABLE/ 
NAKR9: .ASCIZ /RECEIVE OVERRUN/ 
NAKR16: .ASCIZ /MESSAGE TOO LONG/ 
NAKR17: .ASCIZ /MSG HEADER FORMAT ERROR/ 


SEQ 94 


CZKMSAO_KMS11=BD/BE OCLT MACY11 30A(1052) 23=DEC-82 14:01 PAGE 96 
CZKMSA.P11 235-DEC-82 13:54 GLOBAL FORMAT STATEMENTS, MESSAGES, AND ASCII INFO 


023306 040516 020113 042522 NAKROO: .ASCIZ /NAK REASON NOT RECOGNIZED/ 


SEQ 95 


-EVEN 
LIST BEX 


WNAWNNN 
rororororereneny 
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—OODONOUWE 


SEQ 96 
CZ7KMSAO KMS11-BD/BE DCLT MACY11 30A(1052) 23=DEC-82 14:01 PAGE 97 
CZKMSA.P11 23=DEC=B2 13:54 GLOBAL ERROR REPORT SECTION 

$508 po 
326 : THE GLOBAL ERROR REPORT SECTION CONTAINS MESSAGE PRINTING AREAS 
3264 : USED BY MORE THAN TEST TO OUTPUT ADDITIONAL ERROR INFORMATION. PRINTB 

so? : (BASIC) AND PRINTX (EXTENDED) CALLS ARE USED TO CALL PRINT SERVICES. 

ses 

sos 

69 
H 70 

ty 923340 

BGNMSG ERR 
218 033349 PRINTB #EVTFSA,OFSET,<B,GO0D>,<B8,BAD INDIVIDUAL DATA COMPARE ERROR 
° <8, >,<B,BAD> ; L 

3275 023340 005046 CLR -(SP) 
3276 023342 153716 010205 61S8 BAD, (SP) 
3277 023346 005046 CLR -(SP) 
3278 023350 153716 010204 BISB GOOD, (SP) 
3279 023354 013746 010162 MOV OF SET, -(SP) 
3280 023360 012746 021057 MOV #EVTF 5A, =(SP) 
3281 023364 012746 000004 MOV #4 ,-(SP) 
3282 023370 010600 MOV SP, 
3283 023372 104414 TRAP CSPNTB 
3284 023374 062706 000012 ADD #12,SP 
$Ser 023400 ENDMSG 

286 023400 110001: 
at 023400 104423 TRAP C$MSG 
3586 Oot ts BGNMSG ERR2 
3290 02340 ERR2:: 
3291 023402 PRINTB #EFM2,TEMPS TOTAL DATA COMPARE FAILS ERROR 
$598 023402 013746 010174 MOV TEMPG ,-(SP) 
3293 023406 012746 017266 MOV #EFM2,-(SP) 
3294 023412 012746 000002 MOV #2,-°(SP) 
3295 023416 010600 MOV SP,RO 
3296 023420 104¢i4 TRAP CSPNTB 
3297 023422 067706 000006 ADD #6,SP 
3298 Os eese ENDMSG 
3299 023426 110002: 
sane 023426 104423 TRAP C$MSG 
$302 023430 BGNMSG ERR10 
3303 023430 ERR10:: 

304 OS ee 8 PRINTB #EFM11,R4, TEMPS LENGTH COMPARISON ERROR 

305 023430 013746 010172 MOV TEMP3,-(SP) 

306 023434 010446 MOV R4,-(SP) 

307 Oss 76 012746 017363 MOV #EFM11,<(SP) 

308 023442 012746 0000035 MOV #3,-(SP) 

309 023446 010600 MOV SPR 

310 023450 104414 TRAP CSPNIB 

311 OO see 062706 000010 ADD #10,SP 

HT 023456 FENDMSG 

315 023456 110003: 
He 023456 104423 TRAP C$MSG 

316 

317 SPRINT SELO = XXXMMM SEL2 = XXXXXM WITH VALUES FROM TEMPS. .5 


SEQ 97 
CZKMSAO KMS11-BD/BE cu MACY11 30A(1052) 23-DEC-82 14:01 PAGE 98 
CZKMSA.P11 23-DEC-B2 13:54 GLOBAL ERROR REPORT SECTION 
18 
19 023460 BGNMSG ERR13 
319 023460 ERR13:: 
; 1 023460 PRINTB #EFT3C,TEMPG, TEMPS 
g 023460 013746 010176 MOV TEMPS ,=(SP) 
323 023464 013746 010174 MOV TEMPG .=(SP) 
3 4 023470 012746 020330 MOV wer TC -(SP) 
25 023474 012746 000003 MOV #3,-(SP) 
326 023500 010600 MOV SP-RO 
27 023502 104414 TRAP CSPNTB 
8 023504 062706 000010 ADD #10,SP 
9 023510 ENDMSG 
0 023510 L10004: 
3332 023510 104423 TRAP C$MSG 
33 | 
3334 : PRINT "LINE NO = " FOLLOWED BY OCTAL BYTE IN TEMP3+1 
3335 023512 BGNMSG ERR14 
3336 023512 ERR14:: 
3337 023512 PRINTB #EVTF40,<B, TEMP3+1> 
333g 023512 005046 CLR -(SP) 
3339 023514 «153716 010173 BISB  TEMP3+1,(SP) 
3340 023520 012746 020446 MOV #EVTF40,-(SP) 
3341 0255¢6 012746 000002 MOV #2,-(SP) 
3348 023530 010600 MOV SP,RO 
3343 0235352 104414 TRAP CSPNTB 
3344 023534 062706 000006 ADD : 
3349 023540 ENDMSG 
346 023540 L10005: 
3347 023540 104423 TRAP = C$MSG 
sis 
3350 » PRINT TWO OCTAL BYTES FROM TEMP3+1, TEMP4 
3331 023542 BGNMSG ERR22 
352 023542 ERR22:: 
335 Oc 326s PRINTB #EVTF42,<B,TEMP3+1>,<B, TEMP4> 
3354 023542 005046 CLR -(SP) 
3355 023544 153716 010174 BISB  TEMP4,(SP) 
3356 023550 005046 CLR -(SP 
357 023552 153716 010173 BISB  TEMP3+1,<(SP) 
358 023556 012746 02047 MOV MEVTF42,-<SP) 
359 023562 012746 00000 MOV #3,-(SP) 
360 923566 010600 MOV SPR 
361 023570 104414 TRAP  C$PNTB 
362 023572 062706 000010 ADD #10,SP 
363 023576 ENDMSG 
364 023576 L10006: 
3365 023576 106423 TRAP —s- C$MSG 


SEQ 98 
CZ7KMSAO KMS11-BD/BE DCLT MACY11 30A(1052) 23-DEC-82 14:01 PAGE 99 
CZKMSA.P11 235-DEC-B2 13:54 GLOBAL ERROR REPORT SECTION 
7 - PRINT THREE OCTAL BYTES IN TEMP3+1, TEMP4, TEMP4+1 
68 023600 BGNMSG irnod 
69 023600 ERR23:: 
70 023600 PRINTB #EVTF43,<B, TEMP3+1>,<B, TEMP4>,<B, TEMP4+1> 
71 023600 99 ote CLR -(SP) 
72 023602 1 16 010175 B1SB TEMP4+1, (SP) 
735 023606 99 4 CLR -(SP 
74 023610 153716 010174 B1SB8 TEMPG, (SP) 
75 023614 992068 CLR -(SP) 

376 023616 153716 010173 B1SB TEMP3+1, (SP) 
77 8s 36 2 ois rce 020507 MOV MEVTF43,<(SP) 
78 023626 012746 000004 MOV #4,-(SP) 

3379 023632 010600 MOV SP, 
3380 023634 104414 TRAP CSPNTB 
$e6) 023636 062706 000012 ADD #i2,sP 
eee 023642 ENDMSG 
3383 023642 110007: 
Sene 023642 104423 TRAP CSMSG 
HEH “PRINT 1 BYTE FOLLOWED BY MESSAGE POINTED TO IN TEMP4 
3387 023644 BGNMSG ERR24 
3388 023644 ERR24:: 
3389 023644 PRINTB #EVTF44,<B, TEMP3+1>, TEMPS 
3390 023644 013746 010174 MOV TEMP4 ,-(SP) 
3391 023650 005046 CLR -(SP) 
3392 023652 153716 010173 B1SB TEMP3+1, (SP) 
3393 023656 012746 620532 MOV MEVTF44,<(SP) 
3394 023662 012746 0000035 MOV #3,-(SP) 
3395 023666 010690 MOV SP,R 
se09 023670 104414 TRAP CSPNTB 

397 023672 062706 000010 ADD #10,SP 

e305 023676 ENDMSG 

399 023676 110010: 

3400 023676 104423 TRAP C$MSG 


SEQ 99 
CZ7KMSAO KMS11-BD/BE DCLT MACY11 SpA 1052) 23-DEC-82 14:01 PAGE 100 
CZKMSA.P11 23-DEC-82 13:54 GLOBAL ERROR REPORT SECTION 
nit 023700 BGNMSG ERR25 
40 5 700 ERR25:: 
404 PRINT 4 STATUS arts FROM TEMP4, TEMPS 
405 023700 PRINTB #EVTFS2, éB, TEMP4>,<B, TEMP4+1> 
406 023700 905066 CLR (SP) 
07 023702 153716 010175 B1SB TEMP4+1, (SP) 
3408 023706 022088 CLR (SP) 
ae08 023710 153716 010174 8158 EMP4,(S 
10 023714 012746 021207 MOV MEVTFS2,<(SP) 
11 0 30 012746 000003 MOV #3,<(SP) 
4 023724 010500 MOV SP 
413 923726 1044614 TRAP CSPNTB 
414 023730 062706 000010 ADD #10,SP 
ez 023734 PRINTB #EVTFS3,<B,TEMP5>,<B, TEMP5+1> 
16 023734 005046 CLR (SP) 
17 +O 3 153716 010177 BISB TERPS +1, (SP) 
18 023742 005046 CLR 
19 023744 153716 010176 BI1SB TER 
3420 023750 012746 021264 MOV mevitg3. tSP) 
$05) Thee. 012746 000003 MOV 
422 023760 010600 MOV SP,R 
a052 023762 104414 TRAP CSPNTB 
24 023764 062706 000010 ADD #10,SP 
3425 023770 ENDMSG 
3426 023770 110011: 
$056 023770 104423 TRAP ($MSG 
3055 023772 EXIT MSG 
3430 023772 000167 «WORD JSJMP 
31 023774 177772 -WORD L10011-2-. 


eee 
vas 


CZ7KMSAO —_ D/BE 


CLT 
CZKMSA.P11 -DEC- 


2 13:54 


ooo 
wm 
NN 
Ns 
ao 
Oo 


MPOPORONIPONINMINTY 
PELL EA 

Oe FNO ~ 
essseses 
™m 


Ss 


ooCooooooooOo 
ae 
ooo°o°o 


& 
NR AAA 


mn 


MACY11 30A(1052) 
GLOBAL SUBROUTINES SECTION 


SBTTL 


; FUNCTIONAL DESCRIPTION: 


; INPUTS 


; OUTPUTS: 


J 8 


23-DEC“82 14:01 PAGE 101 


39 
3 THE GLOBAL SUBROUTINES SECTION CONTAINS THE SUBROUTINES 
; THAT ARE USED IN MORE THAN ONE TEST. 


CLOCK SETUP SUBROUTINE 


SUBROUTINE SETS UP THE CLOCK INFORMATION TABLE FOLLOWING A *’CLOCK™ 
CALL EXECUTED IN THE INITIALIZATION CODE. BUT SINCE THE “CLOCK CALL 
SAYS NOTHING ABOUT AN LSI-11°S CLOCK, THIS ROUTINE IS ONLY USED IF A 
LINE OR P-CLOCK IS FOUND. 


Ri= POINTS TO SUPER ad + oy SPACE WHERE CLOCK INFO WAS — 
R2= POINTS TO ‘‘CLK’’ TABLE WHERE CLOCK INFO Witt BE KEPT 


; ; IMPLICIT INPUTS: 


THE SUPERVISOR SPACE WHERE CLOCK INFO WAS RETURNED BY THE “‘CLOCK’’ CALL 


*CLKCSR™ GETS LOADED WITH THE CLOCK'S CSR ADDRESS 

“CLKBR' GETS LOADED WITH THE CLOCK'S INTERRUPT LEVEL 

CLKVEC" GETS LOADED WITH THE CLOCK*S INTERRUPT VECTOR 

“ELKHZ™ GETS LOADED WITH THE LINE FREQ. (HERTZ RATE) WHICH DETERMINES 
THE NUMBER OF TICKS IN A SECON 


; CALLING SEQUENCE: 
JSR PC, CLKSET CALL CLOCK SETUP WITH R1 & R2 SETUP 
LKSET a 

Mov (R1)*,(R2)¢ LOAD CLOCK'S CSR ADDR. INTO “'CLKCSR" 
MOV (R1)#, (R2) LOAD CLOCK'S INT. LEVEL INTO “CLKBR 
ASL (R2) :ADJUST THE INT. LEVEL FOR, LOADING INTO 
ASL (Re) : THE PSW WITH A SETVEC™ CALL 

ASL (Re) 

ASL (Re) 
ASL (R )¢ ee ee 
MOV (R1)#,(R2)¢ LOAD CLOCK'S INT. VECTOR INTO, ““CLKVEC 
Moy (RID #, (RO) SLOAD CLOCK'S HERTZ RATE INTO “CLKHZ 


SEQ 100 


SEQ 101 
CZ2KMSAO KMS11-BD/BE DCLT MACY11 30A(1052) 23-DEC-82 14:01 PAGE 102 
CZKMSA.P11 - 23=DEC=82 13:54 CLOCK INTERRUPT SERVICE ROUTINE 
ER .SBTTL CLOCK INTERRUPT SERVICE ROUTINE 
481 + 
48 FUNCTIONAL DESCRIPTION: 
348 THIS IS THE CLOCK INTERRUPT SERVICE ROUTINE WHICH | TAKES CARE OF 
84 KEEPING THE TIME-SINCE-START’ AND COUNTING DOWN ANY OF THE 
85 “EVENT TIMERS. THE TIMERS ARE USED TO TIME COMPLETION OF DEVICE 
486 REQUESTS. THE “TIME=SINCE-START’’ IS USED 10 BE LOGGED WITH EACH ENTRY 
87 INTO THE EVENT LOG. 
489 IMPLICIT INPUTS: 
20 TIMTCK: tas Seu NO. 0" TICKS LEFT TO BE COUNTED UNTIL A SECOND 
9 CLKHZ: OF vncke IN A SECOND DETERMINED BY. THE SYS. LINE FREQ. 
TIMMIN 2! TIMSEC : CURRENT VALUE OF “Time =SiN NCE=STA 


INUTES & SECONDS 
TIMER 1,2, &@ S: CURRENT VALUES OF THE “EVENT TIMERS*’ 


trtcons* OUTPUTS: 


~o 

uw 
Se Se Se Be Se Ge Ge Ge Se Ge Ge Ge Ge Se Ge Ge Se Ge Ge Ge Se Sse Se Ge Ge Ge Ge Se Se 
+ 


3498 W VALUE OF EVENT TIMER ‘"I'' DECREMENTED BY 1 TICK IF IT WAS NON-ZERO 
3499 NEW VALUE OF EVENT TIMER ‘'2"' DECREMENTED BY 1 TICK IF IT WAS NON-ZERO 
500 NEW VALUE OF EVENT TIMER '’S'’ DECREMENTED BY 1 SECOND IF IT WAS NON-ZERO 
50 FUNCTIONAL SIDE EFFECTS: 
3305 THE CLOCK IS DISABLED UPON ENTRY AND REENABLED WHEN LEAVING 
$505 CALLING SEQUENCE : a - 
506 THIS ROUTINE IS CALLED WHEN THE CLOCK INTERRUPTS THRU "‘CLKVEC 
507 THE ADDRESS OF THIS ROUT TINE WAS LOADED INTO THE CLOCK'S INTERRUPT 
308 VECTOR WITH A SUPERVISOR ''SETVEC’ CALL. 
510 
3511 024022 BGNSRV CLKINT 
3512 024022 CLKINT:: 
3212 9240 2 905077 164222 CLR aCLKCSR sDISABLE THE CLOCK FORM INTERRUPTING 
515 024026 005337 010266 DEC TIMTCK SDECREMENT THE # OF TICKS/SEC 
516 024032 001015 BNE 1$ 7GO CHECK TIMERS (1@2-TICKS, 3-SECONDS) 
517 024034 013737 010256 010266 MOV CLKHZ2,TIMTCK RESET THE # OF TICKS/SEC. 
518 024042 005057 010264 INC TIMSEC SINC # OF SECS-SINCE-START 
519 026046 022737 000074 010264 CMP #60., TIMSEC TSEE IF WE'VE COUNTED 60 SECS. YET 
520 024054 001 BNE 1$ [IF NOT, GO CHECK TIMERS 
521 024056 0032 7 010 62 INC TIMMIN : ELSE INC MINUTES-SINCE-START 
328 024062 005037 010264 CLR TIMSEC : AND RESTART SECOND COUNTER 
$24 024066 005737 010270 1$: 1ST TIMER! SEE iF TIMER #1, TIMING ANYTHING 
$25 024072 0014 é BEQ 2$ : 1F=0, NOTHING BEING TIMED CHECK NEXT TIMER 
526 024074 005337 010270 DEC TIMER) > ELSE DECREMENT THE TIMER VALUE (BY 1 TICK) 
52 924100 005737 010272 2$: TST TIMER2 SEE iF TIMER #2, TIMING ANYTHING 
528 024104 0014 3 BEQ 3$ : [F=0, NOTHING BEING TIMED CHECK NEXT TIMER 
329 0 4106 005337 010272 DEC TIMER2 : ELSE DECREMENT THE TIMER VALUE (BY 1 TICK) 
530 02411 0057 7 010274 3$: TST TIMERS :SEE iF TIMER #3, TIMING ANYTHING 
331 0 4116 1406 BEO 4$ : IF=0, NOTHING BEING TIMED, LEAVE 
5 ; 024120 023737 010256 010266 CMP CLKHZ,TIMTCK SEE If A SECOND HAS BEEN COUNTED OFF 
533 024126 its BNE 4$ ; BR IF NO 
$34 024130 005 010274 DEC TIMERS : ELSE DECREMENT THE TIMER VALUE (BY 1 SEC.) 


L 8 


SEQ 102 
CZKMSAO wea 4. psut MACY11 30A(1052) 23=DEC-82 14:01 PAGE 103 
CZKMSA.P11 25-DEC=82 13:54 CLOCK INTERRUPT SERVICE ROUTINE 
535 024134 013777 010260 164106 4$: MOV CLKEN,@CLKCSR ;REENABLE THE CLOCK TO INTERRUPT 
5 02414 ENDSRV 
537 02414 L10012: 
538 024142 000002 RTI 


SEQ 103 
CZKMSAO KMS11-BD/BE DCLT MACY11 30A(1052) yearhece 82 14:01 PAGE 104 
CZKMSA.P11 ie BS 13:54 ENT LOG SUBROUTINES 
ue .SBTTL EVENT LOG SUBROUTINES 
541 3+ 
248 ; FUNCTIONAL DESCRIPTION: 
54 : THIS SUBROUTINE HAS A DIFFERENT ENTRY POINT 
544 : FOR EACH EVENT TO BE LOGGED AND ALWAYS PRINTS 
545 : THE SHORT ‘OPERATOR AWAKE MESSAGE T0 CONSOLE THEN LOGS THE 
546 ; EVENT TYPE, TIME, AND T E OTHER WORDS OF INFO PASSED TO THE 
4 3 SUBROUTINE AT CALLING ¢ TIME 
549 : INPUTS: 
550 : TIMMIN & TIMSEC: CURRENT VALUE OF "'TIME=SINCE=START" 
3551 3 TEMP2: WORD a OF EVENT LOG ie Somat tin (FOR MOST EVENT TYPES) 
552 : TEMP3: WORD #2 OF EVENT LOG INFORMATION 
$27 3 TEMP4: WORD #3 OF EVENT LOG INFORMATION 
555 : OUTPUTS 
3556 ; RN PERATOR AWAKE" et, SENT TO THE CONSOLE 
3557 : NEW EVENT LOGGED IN “EVTLOG’ (EVENT LOG) 
3398 UPDATED EN TOS RE LEVENY LOG ENTRY POINTER) 
3560 : FUNCTIONAL SIDE EFFECTS: 
3561 : TEMP: USED TO STORE ADDRESS OF “OPERATOR AWAKE" MESSAGE 
e208 3 TEMP1: USED TO SETUP THE VALUE OF THE "EVENT TYPE’ BYTE FOR LOGGING 
326? $ CALLING SEQUENCE: 
3565 : JSR PC,LOGTXO 7CALL THE LOG EVENT SUBROUTINE _witH TEMP, TEMP1, 
366 : 7 ie : TEMP2, TEMP3, AND TEMP4 SETUP 
568 : JSR PC,LOGCMP 
3570 
3571 024144 LOGTXQ: 
$255 024144 012737 021653 010166 MOV #STxXQ,TEMP1 ;SET UP MSG. TO PRINT 
3573 024152 012737 000000 010164 MOV #1xQ, TEMP :SET UP EVENT TYPE 
324 024160 000522 BR LOGS{ :GO0 LOG EVENT AND TIME 
576 024162 LOGTXC: 
577 024162 012737 021664 010166 MOV #STXC, TEMP1 :SET UP MSG. TO PRINT 
578 024170 012737 000002 010164 MOV #TXC, TEMP [SET UP EVENT TYPE 
79 024176 000513 BR LoGsi 760 LOG EVENT AND TIME 
381 924200 LOGRXQ: 
5 § 024200 012737 021675 010166 MOV #SRxQ, TEMP1 sSET UP MSG. TO PRINT 
oR 024206 012737 000004 010164 MOV #RxQ, TEMP :SET UP EVENT TYPE 
384 024214 000504 BR LOGSi :GO LOG EVENT AND TIME 
586 024216 LOGRXC: 
587 024216 012737 000006 010164 MOV #RXC, TEMP 7SET UP EVENT TYPE 
388 024 34 000500 ole? BR LoGs{ [G0 LOG EVENT AND TIME 
590 024 26 012737 021706 010166 "mov #SDVE TEMP I :SET UP MSG. 19, PRINT 
591 024234 012737 000010 010164 MOV #DER. TEM :SET UP EVENT TYPE 
592 024242 000474 BR LOGS$ :G0 LOG EVENT AND TIME 


SEQ 104 
CZKMSAO KMS11 SRO /BE | cut MACY11 30A(1052) 23-DEC-82 14:01 PAGE 105 
CZKMSA.P11  23-DEC-B2 13:54 EVENT LOG SUBROUTINES 
ear 8 0 ¢ ae 12737 021730 010166 sli MOV #SDV1,TEMP1 SET UP MSG. TO PRINT 
595 024 38 + 737 ate OiDiee MOV , TEMP [SET UP EVENT TYPE 
596 024260 113737 010216 010170 MOVB  MODTYP, TEMP2 
597 024 66 113737 010220 010171 MOVB L p Tempest 
598 024274 013737 010226 019172 MOV S;TE 
3599 024302 01 13! 010224 010174 MOV PARAM, TEMPG sSET UP EVNT ENTRIES 
$01 024310 000451 BR LOGS3 :GO LOG EVENT AND TIME 
60 024312 LOGCMP: 
360 02451 012737 021717 010166 MOV #SCM,TEMP1 sSET UP MSG. TO PRINT 
04 024320 012737 000014 010164 MOV #DCK. TEMP *SET UP EVENT TYPE 
3605 024326 000415 BR LOGS3A 
606 024330 ; LOGCML: 
3607 024330 012737 021741 010166 MOV #SCML, TEMP1 
3608 024336 012737 000020 010164 MOV #DLE, TEMP :SET UP MSG. AND TYPE 
3609 024344 000406 BR LOGS3A *GO LOG EVENT AND TIME 
3610 024346 LOGCMD: 
3611 024346 012737 021752 010166 MOV #SCMD, TEMP1 
3612 024354 012737 9000¢¢ 010164 MOV #DDE, TEMP 
3613 024362 013737 007636 010176 LOGS3A: MOV TRIBN, TEMPS 
3614 024370 000421 BR LOGS3 :GO LOG MSG TYPE AND TIME 
3616 024372 LOGEOP: 
3617 024372 012737 021763 619166 MOV #SEOP, TEMP) 
3618 024 4400 012737 000024 010164 MOV #EOP, TEMP 
3619 024406 000412 BR LOGS$ :GO LOG MSG TYPE AND TIME 
3058 024410 LOGMSC: 
362¢ 024410 012737 021774 010166 MOV #SMSC,TEMP1 
362 024416 012737 000016 010164 MOV #MSC, TEMP 
360 024424 000403 BR LOGS 
3606 024426 013737 007636 010176 LOGS1: MOV TRIBN, TEMPS :SAVE LINE NUMBER (TRIBN) 
28 024434 LOGS3: 
3629 026434 022737 000006 010164 CMP #RXC, TEMP 
3630 024442 001434 BEQ LoGs§ SIF RXC DON'T PRINT 
3631 024444 032737 000001 010224 BIT #STATB, PARAM 
3632 024452 001430 BEG LOGSS s1f NO STATUS SELECTED 
th 3:G0 TO 5 
3e3¢ 024456 022737 000010 010114 CMP #10, LNCNT ;MAVE ott DONE 102 
3636 024462 001012 BNE LOGS4 :1F NOT GO TO 4 
3037 024464 005037 010114 CLR LNCNT ELSE OT LEAR IT 
3639 024470 PRINTF #CR sELSE PRINT CR 
3640 024470 012746 021650 MOV #CR,=-(SP) 
641 024674 012746 000001 MOV #1,-(SP) 
2 024500 010600 MOV SP.R 
3 026502 104417 TRAP CSPNIF 
644 024504 062706 000004 ADD #4 .SP 
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SEQ 105 
CZKMSAO KMS11-BD/BE DCLT MACY11 30A(1052) 23-DEC-82 14:01 PAGE 106 
CZKMSA.P11 Fore BS 13:54 EVENT LOG SUBROUTINES 
5 0 4 10 LOGS4: 
646 4510 005237 010114 INC LNCNT SINC COUNTER OF # OF AWAKE MSGS 
024514 PRINTF TEMP ‘PRINT OPERATOR AWAKE MSG. 
648 024514 013746 010166 MOV TEMP1,<(SP) 
9 024520 012746 000001 MOV #1,-(5P) 
50 024524 01 600 SP-RO 
51 024526 10441 TRAP CSPNTF 
3 024530 062706 000004 ADD #4,SP 
53 024534 01 34 LOGSS: MOV R3,-(SP) sSAVE R3 ON THE STACK 
54 0245 6 013703 010276 MOV EVfPTR,R3 
55 0 434 1137 10164 MOVB _—sCrTEMP,, (R3)+ :LOG EVENT 
56 024546 0137 192 6 010164 MOV CLKH2, TEMP 
57 026554 163737 010266 010164 SUB TIMTCK, TEMP 
58 024562 113723 010164 MOVB _—sCTEMP, (R3)¢ SLOG TIME SINCE START 
59 024566 1137 10264 MOVB TIMSEC, (R3) 
60 024572 113723 010 62 MOVB  TIMMIN.(R3)+  ;TICKS,SECS AND MINS. 
61 024576 013723 0101 MOV TEMP2, (R3) + [LOG EVNT ENTRY 3 
3662 024602 013725 010172 MOV TEMPS, (R3)¢ [LOG EVNT ENTRY 4 
366 024606 013723 010174 MOV TEMP4, (R3)+ :LOG EVNT ENTRY 5 
3664 024612 013723 010176 MOV TEMPS, (R3) + [LOG EVNT ENTRY 6 
65 024616 020327 011334 CMP R3,#EVTEND 
666 024622 103404 BLO LOGS SIF EVENT LOG FULL GO 
3667 SCONTINUE;ELSE GO TO 2 
668 024624 012713 177777 MOV #-1, (R3) [LOG A TABLE END 
669 024630 012703 010300 MOV #EVELOG R3 [PUT R3 TO START OF TABLE 
70 024634 010337 010276 LOGS2: MOV R3,EVIPIR TRESTORE POINTER 
71 024640 012603 MOV (SP)+,R3 RESTORE R35 
3672 024642 000207 LOGEX: RTS PC 
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SEQ 106 
CZ7KMSAO kMS11580/BE put MACY11 30A(1052) 23-DEC-B82 14:01 PAGE 107 
CZKMSA.P11 23=DEC-B2 13:54 DUMP EVENT LOG AND BASE TABLE 
.SBTTL DUMP EVENT LOG AND BASE TABLE 
46446 10346 REPORT: MOV Rg+=(SP) ;SAVE R2,R3,R4 ON THE STACK 
4646 010346 MOV R3,-(SP) 
4650 MOV R4,=(SP) 
;PRINT REPORT HELP MESSAGE 
1828 PRINTF #RHLPO 
465 91 746 015551 MOV #RHLPO, =(SP) 
4696 12746 000001 MOV #1,-(SP) 
02466 91 600 MOV SP,RO 
024664 10441 TRAP  CSPNTF 
0 4666 9627 6 000004 ADD #4,SP 
024672 1050 99 401 GETRCL: CLRB PS$GDBD sCLEAR GOOD BAD FLAG 
024676 105037 003400 CLRB = PSNNUF 
;PRINT PROMPT RPT> 
02470 GMANID CLISRP,CMDBUF ,A,377,1,72..NO 
acer 104443 TRAP C$GMAN 
024704 000406 BR 10000$ 
024706 003124 .WORD CMDBUF 
024710 000142 WO TSCODE 
024712 015544 “WORD cL SRP 
024714 000377 WOR 77 
4716 000001 “WORD TSLOLIM 
4720 000110 “WORD TSHILIM 
704 0247 10000$: 
705 024722 012737 003124 003364 MOV @CMDBUF ,PSBUFA 
706 024730 012737 927070 003366 MOV @CLIRT,PSTREE 
707 024736 012737 26650 003370 MOV #CLIRAC,PSACT 
708 024744 005037 99 ¢90 CLR QUALFG :CLEAR QUALIFIER FLAG LOCATION 
709 024750 004737 031506 JSR PC, PSTRV +GO PARSE COMMAND LINE 
710 024754 105737 003401 1TSTB = P$GDBD [SEE IF PARSED OK OR AN ERROR 
711 024760 001412 BEO [0K. CONTINUE PROCESSING COMMAND 
71 476 PRINTF @#CLIERM sERROR. REPORT INVALID COMMAND 
71 476 012746 014010 MOV #CLIERM,-(SP) 
714 024766 012746 000001 MOV #1,-(SP) 
715 026772 010600 MOV SP,RO 
rig oon te Ond706 000006 SS Obkase 
at BSS b0s 88 133 690095 JMP GETRCL :GO PRINT RPT> PROMPT AGAIN 
7 105737 40 1$: STB —s PSNNUF ;WAS COMPLETE COMMAND TYPED ? 
ee 923008 oo32 — BEO 1 YES. GO PERFORM REQUESTED ACTION 
72 5014 PRINTF #CLINUF [NO. REPORT INCOMPLETE COMMAND TYPED 
72 5014 012746 014040 MOV #CLINUF ,-(SP) 
724 025020 012746 000001 MOV #i1,-(SP5 
725 025024 01060 MOV SP,RO 
Tee Osage es706 000004 aie ty 
3728 025034 000716 BR GETRCL G0 PRINT RPT> PROMPT AGAIN 
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SEQ 107 
CZKMSAO KMS11580/BE Bout MACY11 30A(1052) 23=DEC-82 14:01 PAGE 108 
CZKMSA.P11 =DEC-B2 13:54 DUMP EVENT LOG AND BASE TABLE 
729 025036 108: s PERFORM REQUESTED REPORT ACTION 
730 023727 003246 000004 cmp KE YwD1 , #ARPSOL :WA SA DEVICE STATUS REPORT REQUESTED ? 
731 025044 001003 BNE 208 CONTINUE CHECKING REQU 
7 é sDEVICE a REPORT REQUESTED 
733 025046 006737 025112 JSR PC, RPTSOL sYES. REPORT DEVICE STATUS 
, 1 025052 000707 BR GETRCL :GO PRINT RPT> PROMPT AGAIN 
736 025054 023727 003246 000006 208: CMP KEYWD1, #RDMPS i1s DUMP REQUESTED ? 
737 025062 001003 BNE 30$ 
738 DUMP pata REQUESTED 
739 025064 004737 027264 JSR PC,,DUMPSR sYES. PRINT REQUESTED DATA 
40 025070 000700 BR GETRCL 'GO PRINT RPT> PROMPT 
742 025072 023727 003246 000002 30S: CMP KEYWD1,@RPEXT s1S EXIT REPORT SECTION REQUESTED ? 
3743 025100 001274 BNE GETRCL ‘NO. GO PRINT RPT> PROMPT AGAIN 
745 sEXIT REPORT PROCESSOR REQUESTED 
746 025102 012604 ENDALL: MOV (SP)+,R4 SYES. RESTORE R4,R3,R2 
747 025106 012603 MOV (5P)+.R3 
748 025106 012602 MOV (5P)+.R2 
3749 025110 000207 RTS PC ;RETURN TO CALLING ROUTINE 
3751 
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SEQ 108 
CZ7KMSAO KMS11-BD/BE DCLT MACY11 30A(1052) 23-DEC-82 14:01 PAGE 109 
CZKMSA.P11 23-DEC“B82 13:54 RPTSOL =GET LINE STATUS REPORT FROM DEVICE- 
Hs -SBTTL RPTSOL -GET LINE STATUS REPORT FROM DEVICE- 
755 3¢ 
P28 ; PRINT DEVICE LINE STATUS TABLE BYTES 0..7 
ie ; TRIBN = LINE NUMBER FROM REPORT CL! ACTION 
760 : BYTE 0: STATUS BYTE 4: ACK RCVD NUM 
3761 : BYTE 1: CONTROL FLAG BYTE 5: MSG RCVD NUMBER 
376 : BYTE ¢: TEMP STORAGE BYTE 6: NUM NAKS TRANSMITTED 
ee ; BYTE 3: LAST TX MSG NUMBER BYTE 7: NUM NAKS RCVD 
765 i: 
378 025112 RPTSO REQUEST LINE STATUS 
L: ; U L U 
3768 025112 005737 011512 TST ENRDST :1S ENABLE READ STATUS ASSERTED ? 
769 025116 001407 BEQ 10$ :NO. OMIT READING STATUS 
770 025120 005037 007636 CLR TRIBN :YES. CLEAR LINE NUMBER 
3771 Og31¢6 113737 007622 007636 MOVB TRIBLS, TRIBN sSPECIFY LINE NUMB 
3772 025132 004737 063704 JSR PC,LNSTAT sREAD LINE STATUS 
3773 025136 005737 011514 108: TST VSTAT ‘1S VALID STATUS DATA ASSERTED ? 
3774 025142 001011 BNE 208 ‘YES. GO PRINT STATUS DATA 
3775 sSTATUS NOT AVAILABLE 
3776 025144 PRINTS #PRINOS REPORT STATUS NOT AVAILABLE 
777 025144 012746 016612 MOV #PRINOS ,-(SP) 
778 0251590 012746 000001 MOV #1,-(SP) 
779 025154 010600 MOV SP,RO 
3780 025156 104416 TRAP CSPNTS 
3781 025160 062796 000004 ADD #4,SP 
3782 025164 000502 BR 30$ ; AND RETURN 
378 sPRINT STATUS 
3784 025166 20$: PRINTS W#EVTFS1,LINEST 
785 025166 013746 011510 MOV LINEST,-(SP) 
3786 025172 012746 021143 MOV #EVTFS1,-(SP) 
787 025176 012746 000002 MOV #2,-(SP) 
788 025202 010600 MOV SP,RO 
789 025204 104416 TRAP CSPNTS 
790 025206 062706 000006 ADD #6,SP 
791 025214 PRINTS #EVTFS2,<B,DEVS1>,<B,DEVS1+1> 
792 025212 005046 CLR -(SP) 
3793 025214 153716 011501 BISB DEVS1¢1, (SP) 
3794 025 30 005046 CLR -(SP) 
795 923 22 153716 011500 BISB DEVS1, (SP) 
79 025 8 012746 021207 MOV BEVTFS2,-(SP) 
797 0239 2 012746 000003 MOV #3,-(SP) 
798 025236 010600 MOV SP,RO 
799 025240 104416 TRAP CSPNTS 
025242 062706 000010 ADD #10,SP 
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SEQ 109 
CZ7KMSAO KMS11-BD/BE guy MACY11? 30A(1052) 23=DEC-82 14:01 PAGE 110 
CZ7KMSA.P11 25-DEC- 13:54 RPTSOL -GET LINE STATUS REPORT FROM DEVICE- 
801 025246 PRINTS #EVTFS3,<B,DEVS2>,<B,DEVS2+1> 
B02 025246 903 46 CLR -(SP) 
803 025250 1 16 011503 BISB DEVS2+1, (SP) 
06 025254 99 046 CLR -(SP) 
805 2 56 153716 011502 BISB DEVS2,¢ 
06 62 012746 021264 MOV park ge 
07 025266 012746 000003 MOV #3,-(S 
808 025272 010600 MOV SP,RO 
09 025274 104416 TRAP CSPNTS 
810 025276 062706 000010 ADD #10,SP 
11 o¢2 8s PRINTS #EVTFS4,<B,DEVS3>,<B.DEVS3+1> 
Hy 025302 005946 CLR -(SP) 
381 BS 2g0n 183716 011505 BISB DEVS3+1, (SP) 
318 025310 005046 CLR -(SP) 

1§ 025312 153716 011504 BISB DEVS3, (SP) 

16 025316 ois ree 021341 MOV MEVTFS4,<(SP) 

17 025322 012746 000003 MOV #3,-(5P) 

818 0 2368 010600 MOV SP,RO 
3819 025350 104416 TRAP CSPNTS 
ease 025332 062706 000010 ADD #10,SP 

21 Os2 36 PRINTS #EVTFSS,<B,DEVS4>,<B,DEVS4+1> 
an56 0 S378 005046 CLR -(SP) 

3823 025340 153716 011507 BISB DEVS4+1, (SP) 
$056 025344 005046 CLR =-(SP) 

25 025346 153716 011506 ; B1ISB DEVS4, (SP) 
3826 025352 012746 021416 MOV #EVTFSS,-(SP) 
3827 025356 012746 000003 MOV #3,-(SP) 

3828 025362 010600 MOV SP,RO 

3893 025364 104416 TRAP CSPNTS 
025366 062706 000010 ADD #10,SP 

ett 025372 30$: 

832 025372 000207 RTS PC yRETURN 

3833 

3834 

3835 
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SEQ 110 
CZ7KMSAO KMS11-BD/BE DCLT MACY11 30A(1052) 23-DEC-82 14:01 PAGE 111 
CZKMSA.P11 2 Ee. 2 13:56 REPLOG PRINT EVENT LOG 
: .SBTTL REPLOG PRINT EVENT LOG 
838 
839 5374 010246 REPLOG: MOV R2,<(SP) ;SAVE R2,R3,R4 ON THE STACK 
ASS gReaTe. shes a ed 
841 025400 010446 MOV R4,=(SP) 
Beg 025402 013702 010376 MOV EVTPTR,R2 ;MAKE R2 A POINTER TO EVENT TABLE 
B44 025406 023727 010300 177777 CMP EVILOG.@-1 [SEE IF EVENT TABLE IS EMPTY 
g teach o7t08 Bins tucevt iF Ent veut oneeavo 
§ 8 ati8 012746 020057 MOV #NULEVT,<(SP) 
8 025422 012746 000001 MOV #1,-(SP) 
9 025426 010600 MOV SP,R 
850 025430 104416 TRAP CSPNTS 
51 025432 062706 000004 ADD #4,SP 
3 025436 0001 026606 Mp ENDEVT ZAND END 
3854 025442 162702 000014 RPT: SUB #14,R2 ;NOW POINT BACK TC TOP OF ENTRY U 
3856 sJUST PRINTED 
857 025446 020227 010300 CMP R2,#EVTLOG sPOINTING TO TOP OF EVNT LOG QUEUE? 
3858 025452 001010 BNE RPT1 : 
59 025454 o12702 011334 MOV #EVTEND,R2 [SET R2 TO POINT TO &OTIOM OF LOG 
3860 025460 026227 177776 177777 CMP -2(R2) #1 
861 025466 001007 BNE RPTO s1f END OF LOG IS NOT EMPTY 
Sae8 025470 000137 026606 JMP ENDEVT :CONTINUE...ELSE EXIT 
025474 020237 010276 RPT1: CMP R2,EVIPTR yARE WE BACK TO POINTER? 
3865 025500 901002 BNE RPTO :1F NOT CONTINUE 
$667 025502 0001 026606 JMP ENDEVT t1F SO EXIT.... 
868 025506 162702 000014 RPTO: SUB #14,R2 :POINT R2 TO START OF ENTRY 
3869 929512 RPTAA: PRINTS @#EVTFO [PRINT EVENT ENTRY HEADER 
3870 025512 012746 020117 MOV #EVTFO,<(SP) 
3871 025316 012746 000001 MOV #1,-(SP) 
7 025522 010600 MOV SP, 
7 0233 & 106416 TRAP CSPNTS 
74 025526 062706 000004 ADD #4,SP 
75 025532 11 3 MOVB (R2)+,R3 sPuT EVENT TYPE INTO R3 
76 0099 11 011430 mOVB (ners EVTICE 
? $540 112237 011426 MOVB (R2)*, EVTSEC ;PUT EVENT TIME (TICKS,SECS.MINS IN TEMP LOC.S) 
3878 025546 112237 011426 mOVB (R2)¢ EVIMIN 
79 025550 PRINTS #EVTFL,EVIMIN,EVISEC,EVITCK,EVILST(R3) ;PRINT EVENT TIME AND DESCRIPT. 
025550 016346 011374 MOV EVILST(RS) ,=(SP) 
1 025554 013746 011430 MOV EVTTCK,=(SP) 
025560 013746 91 14¢6 MOV EVTSEC,=(SP) 
025564 013746 011426 MOV EVIMIN,-(SP) 
025570 012766 020215 MOV ogvil -($P) 
5 025576 012746 000005 MOV #5,-(SP) 
025600 010600 MOV 5P,RO 
887 025602 104416 TRAP CSPNTS 
B88 025604 062706 000014 ADD #14,SP 
2889 025610 0001 011440 ymp @RPTDSP(R3) DISPATCH TO DECODING SECTION FOR SPECIFIC fYPE 


4 9 


SEQ 111 
C7KMSAO Kmsit; D/BE cu MACY? 30A(1052) 23-DE C-B2 14:01 PAGE 112 
CZKMSA.P11 23-DEC-B2 13:54 REPLOG PRINT EVENT LOG 
890 025614 01 H 011432 RPTTXO: MOV (R2)*,EVTADD  ;STORE MESSAGE ADDRESS FOR PRINTING 
91 025620 3 7 0116346 MOV (CR ote 3 BCT sSTORE BYTE COUNT FOR PRIN TING 
892 025604 01 93 MOV (R2)+_R : STORE MODEM STATUS FOR PRINTING 
B93 025626 004 026616 JSR PC. PNITRB INT LINE NO. 
894 0256 PRINTS #EVTF2,EVTADD, eviac! sPRINT ADDR, BYTE CNT 
95 025632 013746 011434 EVIBCT,<(SP) 
896 0256 013746 011432 MOV EVTADD.<(SP) 
897 025642 012746 Opozct MOV aevite -(SP) 
98 0 2668 012746 000003 MOV #3,-(SP) 
99 025652 01 MOV $P,RO 
3300 025654 104416 TRAP  CSPNTS 
901 025656 062706 000010 ADD #10,SP 
3902 025662 0001 025442 jmp RPT 3GO BACK FOR NEXT EVENT ENTRY 


CZ7KMSAO_KMS11-BD/BE 
CZKMSA.P11 25-DEC- 
903 
904 025666 
905 0 ? 012237 
907 093675 013746 
908 $78 12746 
909 0 12746 
910 8 ? 10600 
911 5710 104416 
aig 025712 0627 
91 8 2718 01 
914 7? 012237 
915 025726 Bis 7 
916 os2? 2 01024 
917 0257 00500 
918 0257 11370 
919 02574 sett 
920 025744 Big 0 
St 025750 06270 
9 ¢ 025754 004671 
9 025756 012606 
4 $ 025760 00015 
3956 025764 
4 44 025764 000016 
928 025766 sale t 
44 Os 370 00005 
9 025772 000110 
931 025774 000154 
932 025776 000204 
933 026000 000240 
934 02600 
935 02600 
936 026002 013746 
937 aseas 013746 
938 02601 orgie 
939 0 008 012746 
940 026022 010600 
941 acon & 106416 
942 026026 0627 
943 026052 00020 
944 
945 
946 026034 
3947 026034 000207 


CLT 
2 13:56 


011470 


025764 
025764 


025442 


MACY?? 30A(1052) 


ez-pet 
REPLOG PRINT E 


RPTDER: 
PRINTS 


PRIETB: 


- WORD 
PRINTS 


PRIEO: 


RTS 


PRIEI: 


1 9 
“B82 14:01 PAGE 113 
NT LOG 


PRINT ERROR EVENT FROM LOG 
(R2)¢ evi tmp sGET ADDRESS OF DEVICE INFO MESSAGE 
@EVTFS.EVTTMP «SPRINT MESSAGE 


SEQ 112 


MOV EVTTMP,<(SP) 
MOV wEVIES -(5P) 
MOV (SP) 
MOV rf “RO 
TRAP = CSPNTS 
ADD #6,SP 
(R2)* DEVI :GET PRINT CODE AND LINE NUMBER 
(R2)*,DEV [COPY SAVED DEVICE REGISTER CONTENTS 
(R2)* DEV ‘COPY ND SAVED REGISTER 
Re. =(SP) i SAV — R2 ON STACK 
: CLEAR inoex REGISTER 
DEV1.R3 [GET PRIN 
SHIFT ISD eS LEFT TO USE AS WORD INDEX 
PRIETB(R3) ,R3 3GET PRINT ROUTINE OFFSET FROM TABLE BASE 
#PRTIETB,R3 :ADD IN ADDRESS (of TABLE BASE 
PC, (R3) PRINT REGISTERS 
(SP)+,R2 SRESTORE R2 
RPT [G0 BACK FOR NEXT EVENT ENTRY 
-TABLE OF OFFSETS TO REGISTER PRINT ROUTINES 
#PRIEO-PRIETB 
SPATE CPRICTB 
@PRTIE2-PRIETB 
@PRTE 3-PRIETS 
#PRIEG-PRIETB 
@PRTES-PRIETB 
SPRTEG-PRIETS 
12 WORDS OF DEVICE REGISTER CONTENTS 
wErT3C, vive. DEV ;PRINT 2 WORDS 
MOV DEV3.<(SP) 
MOV DEV2,<(SP) 
MOV BEF TSC, -(SP) 
MOV #3,-(SP) 
MOV SP.RO 
TRAP —- CSPNTS 
ADD #10,SP 
PC RETURN 
yee NOT USED 
PC RETURN 


J’ 9 


SEQ 113 
CZ7KMSAO KMS11-BD/BE LT MACY1? 30A(1052) 23-DEC-B2 14:01 PAGE 114 
CZKMSA.P11 eta ti 13:54 REPLOG PRINT EVENT LOG 
949 0260 PRIE2: :PRINT 2 BYTES 
950 0 60% PRINTS @#EVTF42,<B,DEV1*1>,<B,DEV2> 
ome Soe tee St tt aE gis Deve (SP) 
Vv 
95 8 tinh 99 046 CLR =(SP5 
954 0260466 153716 011471 BISB8 DEV1I+1,(SP) 
955 02605 gi 746 02047 MOV HEV TE GS =(SP) 
956 02605 12746 00000 MOV #3,-(SP) 
957 026062 010600 MOV SP.RO 
95 6064 104416 TRAP = CSPNTS 
95 9 6066 062706 00010 ADD #10,SP 
960 6072 00020 RTS PC RETURN 
96 
963 026074 PRIE3: ;PRINT 3 BYTES 
3966 026074 PRINTS #EVTF43,<B,DEV1+1>,<8,DEV2>,<B,DEV2¢1> 
3965 626074 005046 CLR -(SP) 
3966 026076 153716 011473 BISB DEV2+1,(SP) 
967 026102 005046 CLR -(SP 
968 026104 153716 011472 BISB DEV2, (SP) 
969 026110 005046 CLR =(SP5 
970 026112 153716 011471 BISB DEV1+1,(SP) 
971 0 6116 012746 020507 MOV MEVTF4S,=(SP) 
972 0261 012746 000004 MOV #4,-(SP) 
973 026126 010600 MO SP,RO 
974 0261 104416 TRAP = CSPNTS 
975 026132 062706 000012 ADD #12,SP 
144 026136 000207 RTS PC sRETURN 
978 
979 026140 PRIEG: sPRINT LINE NUMBER 
980 026140 PRINTS @#EVTF40,<B,DEVI+¢1> 
981 026140 005046 CLR -(SP) 
3982 026142 153716 011471 BISB  DEV1+1,(SP) 
3983 026146 012746 020446 MOV #EVTF40,-(SP) 
3984 026152 012746 000002 MOV #2,-(SP) 
3985 026156 010600 MOV SP RO 
986 026160 104416 TRAP = CSPNTS 
3987 026162 062706 000006 ADD #6,SP 
3988 166 000207 RTS PC 


K 9 


SEQ 114 
CZKMSAO KMS11-B8D/BE guy MACY11 30A(1052) 23-DEC-82 14:01 PAGE 115 
CZKMSA.P11 25-DEC=-82 13:54 REPLOG PRINT EVENT LOG 
989 026170 PRIES: PRINT LINE NUMBER AND MESSAGE POINTED TO BY DEV2 
990 0 2178 PRINTS #EVTF44,<B,DEV141>,DEV2 
991 02617 BE 011472 MOV DEV2,-(SP) 
99 9 6174 03046 CLR =(SP§ 
99 2378 1 16 0114671 B1SB DEV1+1, (SP) 
994 02620 4 746 92053 MOV HEVTEGS .=(SP) 
995 026 98 12746 00000 MOV #3,-(SP) 
996 02621 010600 MOV SP, 
997 026214 1046416 TRAP CSPNTS 
998 026216 062706 000010 ADD #10,SP 
ioee 026222 000207 RTS PC ;RETURN 
4001 026224 PRTE6: 
400 SPRINT 4 STATUS BYTES 
400 ih: 4 PRINTS #EVTFS2,<B,DEV2>,<B,DEV2+1> 
4004 026224 005046 CLR -(SP) 
4005 026 $ 153716 011473 BISB DEV2+1, (SP) 
4006 026 005046 CLR =-(SP 
4007 026 153716 01147 B1SB DEV2. (SP) 
4008 026240 012746 02120 MOV MEVTFS2,-(SP) 
4009 026244 012746 000003 MOV #3,-(SP) 
4010 026250 010600 MOV SP,RO 
4011 026252 104416 TRAP CSPNTS 
401 ose 54 062706 000010 ADD #10,SP 
4013 026260 PRINTS #EVTFS3,<B,DEV3>,<B,DEV3+1> 
4014 026260 005046 CLR -(SP) 
4015 026262 153716 011475 BISB DEV3+1, (SP) 
4016 026266 005046 CLR -(SP) 
4017 026270 153716 011474 BISB DEV3.(SP) 
4018 026274 012746 021264 MOV MEVTFS3,=(SP) 
4019 ose 00 012746 000003 MOV #3,-(SP) 
4020 0 oehe 010600 MOV 
4021 026 104416 TRAP CSPNTS 
4022 026310 062706 000010 ADD #10,SP 
4025 026314 000207 RTS PC 


Ll 9 


SEQ 115 
CZKMSAO KMS11-BD/BE DCLT MACY11 30A(1052) 23-DEC-82 14:01 PAGE 116 
CZKMSA.P11 Lette: 13:54 REPLOG PRINT EVENT LOG 
4025 0 6 Ig 005037 01147 RPTDVI: CLR DEVI 
4026 026 005037 O1i47 CLR DEV2 sCLEAR UPPER BYTES OF DEV1 & DEV2 BEFORE USE 
4027 026 $ 112237 01147 MOVB = (R2)+, DEVI SSTORE SETUP OPERATION PARAMETERS FOR PRINTING 
4028 9 6 110237 01147 MOVB = (R d+ DEVE 
4029 026 : 12237 011474 MOV (R2)*.DEV 
4030 026 12237 011476 MOV (R2) +. DEVS 
4031 026346 01 46 MOV R2,-(§P) sSAVE R2 ON THE STACK 
403 026350 00473 031204 JSR PC ,SHWOP :GQ0 PRINT MODE, MAINT-LOOP TYPE, PARAMTERS. 
4033 026354 0126 é MOV (SP)+,R2 SRESTORE R2 
4034 026356 012237 010176 MOV (R2)+. TEMPS SDUMMY MOVE 
40 § 026362 000137 025442 JMP RPT [GO BACK FOR NEXT EVENT ENTRY 
4037 :REPORT END OF PASS R “C ABORT 
4039 026366 RPTABO: 
4040 026366 012237 011432 RPTEOP: MOV (R2)+,EVTADD 
4041 Bsogte 01 $3 011434 MOV (R2)*, EVTBCT 
4042 026376 012237 011436 MOV (R2)*-.EVTTMP 
4045 026402 012237 010176 MOV (R2) +, TEMPS :DUMMY MOVE 
4045 ;PRINT PASCOUNT ERROR COUNT RX THRES AND TX TTHRES 
4047 026406 PRINTS #EVTF4B,EVTADD,EVIBCT. EVI TMP 
4048 026406 013746 0114636 MOV EVTTMP,=(SP) 
4049 026412 013746 011434 MOV EVTBCT.=(SP) 
4050 026416 013746 011432 MOV EVTADD,-(SP) 
4051 026422 012746 020600 MOV #EVTF4B,=(SP) 
4052 026426 012746 000004 MOV #4,-(SP) 
4053 026432 010690 MOV SP.RO 
4054 026434 104416 TRAP C$PNTS 
4055 026436 062706 000012 ADD #12,SP 
4057 026442 000137 025442 JMP RPT ;THEN GO GET NEXT EVENT ENTRY 
4059 
4060 026446 012237 011432 RPTDDE: MOV (R2)*,EVIADD § ;STORE MESSAGE ADDRESS FOR PRINTING 
4061 026452 012237 011434 MOV (R2)+,EVIBCT | STORE BYTE COUNT FOR PRINTING 
406¢ 026456 lee 7 011436 MOV (R2)+,EVTITMP STORE TOTAL # OF CMP ERRORS 
4063 026462 7 026616 JSR PC, PNTTRB :PRINT LINE NO. 
4064 026466 PRINTS #EVTF4,EVTADD,EVIBCT,EVTTMP :PRINT ADDR, BYTE CNT, # CMP ERRS 
4065 026466 013746 011436 MOV EVTTMP,-(SP) 
4066 026472 013746 011434 MOV EVTBCT.=-(SP) 
4067 926476 013746 011452 MOV EVTADD.-(SP) 
4068 02650 gt 746 02065 MOV WEVTF4.=(5P) 
4069 026506 012746 000004 MOV #4,-(SP) 
4070 026512 010600 MOV SP.RO 
4071 026514 104416 TRAP — CSPNTS 
4072 026516 062706 00001 A #12,SP 
4073 026522 000137 02544 JMP RPT ;THEN GO GET NEXT EVENT ENTRY 
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CZKMSAO_KMS11 


CZKMSA.P11 


Wnrnrn— 
MOAMWNO 


oo 
BESS 


2S-pEt-B2. 


T 
13:54 


NEE LEE 
MEAS SOS 


010176 
010176 


020546 
000002 


000006 


MACY11 30A(1052) 
REP 


RPTOLE: 
RPTDOCK: 


ENDEVT: 


PNTTRB: 


MOV 
MOV 
MOV 
JSR 
PRINTS 


JMP 


MOV 
MOV 


MOV 
RTS 
sPRINT 


MOV 
PRINTS 


RTS 


“9 
82 14:01 PAGE 
T LOG 


RPT 


LINE NO. 


(R2)+, TEMPS 
#EVTFG, TEMPS 


PC 


117 


P " ;PRINT ADDR,RXBYTES, CMPB 
MOV 


:THEN GO GET NEXT EVENT ENTRY 


RETURN TO CALLER AFTER REG RESTORE 
sRESTORE R4,R3,R2 


RETURN TO CALLING ROUTINE 


PRINT LINE NUMBER, 


sRETURN TO EVENT 


YTES. 


-(SP) 
#4,-(SP5 
SP, 

CSPNTS 
#12,SP 


TEMPS ,-(SP) 
#EVTF6,-(SP) 
2.7(SP) 


SP,RO 
psruts 


SEQ 116 


n 9 


SEQ 117 
CZKMSAO kMS11=80/BE peut MACY11 30A(1052) 23-DEC-82 14:01 PAGE 118 

CZKMSA.P11 - 23=DEC “82 13:54 CLI FOR REPORT CODING SECTION 
4110 .SBTTL CLI FOR REPORT CODING SECTION 
4111 026650 CLIRAC: 
aig 026650 00630 ASL R2 
4113 026652 01620 026666 MOV 10$(R2) ,R2 sFORM ADDRESS OF ACTION ROUTINE 
4114 026696 062702 026606 ADD #10$,R2 
4115 026662 00471 JSR PC, (R2) 
4116 026664 00020 RTS PC 
4118 026666 000030 108: .WORD ACTRNL-10$ 
4119 026670 000032 "WORD ACTRHL-10$ sRPHLP 
4120 036672 000076 ’ ACTREX=10$ SRPEXT 
4121 026674 000106 sW ACTRLG=10$ ?RPLO 
age 026676 000122 “WORD ACTRSL-10$ >RPSOL 
4123 026700 000022 ACTRNF=10$ :RNOTNF 
4124 026702 000136 “WORD ACTRDS-10$ SROMPS 
4125 026704 000160 "WORD ACTRDOQ-10$ *RDMPQ 
4126 026706 000166 "WORD  ACTRDE-10$ “RDMPE 
4128 


B 10 


SEQ 118 
CZKMSAO CRS 1190 OF pout MACY11 30A(1052)_ 23-DEC-82 14:01 PAGE 119 
CZKMSA.P11 25-DEC-82 13:54 REPORT COMMAND ACTION ROUTINES 
4129 »SBTTL REPORT COMMAND ACTION ROUTINES 
re . 8 orto 008207 177777 003400 ate: aye #=1,, PSNNUF :SET FLAG TO SAY MORE NEEDED 
41 4 8 6720 01 $05 003276 ACTRHL: MOV #RHLPTB R2 ;SETUP R2 AS A POINTER TO HELP MSG TABLE 
Mi 6724 18: PRINTF #HLPF,(R2)¢ ;PRINT HELP INFORMATION MESSAGES 
a) 026724 3 $48 MOV (R2)+,=(SP) 
4135 8 6726 012746 014616 MOV MHLPF ,-(SP) 
41 6732 81 746 000002 MOV #2,-(SP) 
4137 026736 01 608 MOV SP,RO 
6138 026740 10441 TRAP CSPNTF 
4139 8 6742 st 44 $ 600906 ADD #6,SP 
4140 ores ‘ ¢ 003304 CMP R2,#RHLPEN SEE IF ALL INFO PRINTED YET 
4141 026752 001 $s BNE :1F NO KEEP PRINTING 
apy | Bsr 3 012737 000001 003246 MOV #RPHLP,KEYWD1 
eer 026762 000207 RTS PC 
4145 026764 012737 000002 003246 ACTREX: MOV #RPEXT,KEYWD1 ;SET UP EXIT WORD 
atts 026772 000207 RTS PC 
4148 026774 004737 025374 ACTRLG: JSR PC ,REPLOG GO REPORT DCLT EVENT LOG 
4149 027000 012737 000003 005246 MOV #RPLOG,KEYWD1 
2129 027006 000207 RTS PC 
$136 Oe 78i8 ACTRSL: 
4153 027010 HT 3614 000004 003246 MOV #RPSOL,KEYWD1 ;SET UP KEY WORD 
4154 027016 105037 003400 CLRB PSNNUF ;CLEAR NOT ENOUGH FLAG 
ret #4 027022 000207 RTS PC ;AND RETURN 
4157 oer oes 013737 003374 010126 ACTRDS: MOV PSNUM, STADD SETUP STARTING ADDRESS FOR DUMP 
4158 0270352 803037 010132 CLR BYTBI SET DEFAULT OF WORD DUMP 
4°59 027036 012737 000006 003246 MOV #ROMPS,KEYWD1 ;FLAG THAT A DUMP WAS TYPED 
rahe 027044 000405 BR ACTRDE 
rth 027046 ae te 177777 010132 ACTRDQ: MOV #-1 ,BYTBIT 7SET DUMP FLAG TO ‘‘DUMP-BYTE"’ ae 
4163 027054 013737 003374 010150 ACTRDE: MOV PSNUM,ENADD ;SETUP END ADDRESS FOR DUMP (=START IF NO “EEE 
4164 027062 105037 003400 ACTRDX: CLRB PSNNUF sCLEAR NOT-ENOUGH FLAG, ‘‘DUMP N-N/B"’ IS VALID 
4165 027066 000207 RTS PC 
4166 
4167 
4168 


CZKMSAO wear - 
CZKMSA.P11 25- 

4169 

4170 

4171 027070 

417 8 7074 

417 7100 

4174 027102 

4175 027116 

4176 027120 

4177 027134 

4178 027136 

4179 027162 

4180 027164 

4181 027176 

418 

418 

4184 027200 

4185 027214 

4186 

4187 

4188 

4189 027220 

4190 osisee 

4191 027250 

4192 027234 

4193 027240 

4194 027244 

4195 027250 

4196 027254 

4197 

4198 

4199 

4200 027260 

4201 

4202 

4203 027262 

4204 


/BE 
DEC 


B5'13.56 


MACY11 30A(1052) 


SBTTL 
CLIRT: 
ids: 
R11$: 
R12$: 


R138: 
R14$: 


R66$: 


R30$: 


zs END-OF - 
R125$: 


C 10 


23-DEC-82 14:01 PAGE 120 
REPORT CODE COMMAND LINE PARSING TREE 


REPORT CODE COMMAND LINE PARSING TREE 


Cul CLISPA,O,R10$  ;SKIP ANY SPACES 

Cul <°9>,RPHLP,R11$ :1S FIRST NON@SP CHAR A ‘'?"'? 

Cul CLIEXI, “EX 

Cul CLISTR,RPHLP,R12$,<'HELP'> 

Cul CLIEXI,0 

Cul CLISTR,RPEXT,R13$,<°EXIT'> 

Cul CLIEX1,0 

Cul CLISTR.RPSOL,R14$,<"STATUSONL INE "> 

Cul CLIEXI,0 

Ctl CLISTR.RPLOG,R46$,<"LOG'> 

Cul CLIEXI.0 

:DUMP ADDED TO REPORT 
tu! CLISTR,RNOTNF ,R30$,<*DUMP'> SELSE, IS FIRST WORD A “DUMP” 
Cul CLIBR,O,R50$ : IF YES GOTO R50$ 

RESSES FOR DUMP COMMAND 

CLI CLIALP,O,R51$ 

Cul CLISPA,0,R52$ 

Ctl CLIOCT .ROMPS ,R30$ 

Cul <* =>, RNOTNE R123 

ae CLIOCT,RDMPE ,R30$ 

CLI <"/>,RNOTNF ,R125$ 

CLI <"B>, RDMPOQ,R30$ 

Ctl CLIBR,O,R105$ 

Cul CLIERR,O SOTHERWISE “ILL CMD’ = EXIT 
LINE 

CL! CLIEXI,0 


SEQ 119 


D 10 


SEQ 120 
“BD/ 1 MACY11 30A(1052) 23=-DEC-82 14:01 PAGE 121 
Hee 2 hs oT 3.54 DUMP BYTES OR WORDS 

4 .SBTTL DUMP BYTES OR WORDS 
38 
0509 ee 

: A RIPTION: 
e310 : FECT sh > SURF BYTES OR WORDS SUBROUTINE 
421 : ’ 

: ROUTINE PRINTS THE CONTENTS OF THE LOCATIONS BETWEEN 
it | PURARUMIR URE anNNTS TG CQnenes 9 a6 nace gr 
0518 : THE WORD OR BYTE CONTENTS ARE PRINTED 8 TO A LINE WITH THE 
4216 ; ADDRESS OF THE FIRST BYTE AS THE FIRST 6 OCTAL CHARS. FOL 
2519 : BY A SEMICOLON. 
4218 ; 
4219 > INPUTS: 

: TADD= STARTING ADDRESS (FIRST LOC. TO PRINT) 
2551 ; ENADD= END ADDRESS. (LAST LOCATION TO, DUMP) 
422 : BYTBIT= 1 IF SUPPOSED TO PRINT ‘BYTES' 
0558 ; 0 IF SUPPOSED TO PRINT ‘WORDS 
0558 : OUTPUTS: pitas 
4226 : CONTENTS OF A RANGE OF LOC.S PRINTED ON THE OPERATORS CONSOLE. 
4227 ; ; 
1355 : Ca eet DUNPSR CALL DUMP BYTES SUBROUTINE 
4230 3 
3 ms 

DUMPSR: MOV STADD,R2 ;SET R2 UP TO STARTING ADDR. 
c238 o27zeu o1s70z 10126 sn oy ist0 8 
4235 027272 PRINTF #BASM1,R2 [PRINT ADDRESS ma ne cans 
ocee Oerere Oilers MOV #BASM1 ,-(SP) 
4237 O27¢74 012746 020051 mov pert 
4238 027300 012746 000002 mov ae eat 
4239 027304 010600 on oD 
2349 857898 On3706 000006 ADDO SP 
re 027314 005737 010132 DUM3: Ist ByTBIT ils THIS BYTE OR WORD 
4243 027320 001416 3 

(R2)+, TEMP [MOV BYTE TO TEMP 

1528 037332 7 PRYATE sees ee remp> :PRINT BYTE Aes i 
4246 037396 005046 | en 
a eT Bie? Denca$Sttsn 
1305 097346 013748 $00002 Moy #2.- 
re F ost $ oe TRAP Sag hy 
425 oe7 306 062706 000006 ~ oe ADD . 
Q ez 037386 _ DUM1: PRINTF #BASM2,(R2)*  ;PRINT WORD Lene Pagan 
1533 8593800. o19766 MOV = ABASM2, = (SP) 
4256 027360 012746 020042 mov peat ee 
4257 027564 012746 000002 mov se eat 
4258 027370 01 600 vy, ef 
1580 per ae 00370 000006 ADD #6,SP 
4261 027400 $66298 Stabe DUM2: CMP R2,ENADD : COMPARE FOR LAST ADD 


, 


CZKMSAO_KMS11 
CZKMSA.P11 


027404 


027416 
027420 


ene C-B2 13:54 


90300 
eat 000010 
000756 
000207 


MACY11 seatehbtead” 


DUMEX: 


23-DEC 
MP BYT 


— 10 


Q 121 
-82 14:01 PAGE 122 spe 
ES OR WORDS 

DUME x :1F DONE EXIT 

8 TELSE BUMP R3 

#8. ,R3 THAVE WE PaTNTeD 8 ACROSS 

pumé :1F $0 GO BACK 

DuM3 sELSE GO BACK ue PRINT ANOTHER 

‘BYTE OR WORD 
PC “RETURN TO CALLER 


CZ7KMSAO_KMS11-BD/BE DCLT 


CZKMSA.P11 


25-DEC=82 13:54 


So 

oO 

OWN 
NNNNNNONOO OO 


F 10 


MACY11 30A(1052) 23=-DEC=82 14:01 PAGE 123 
UPDATE TOTAL CHAR. COUNT SUBROUTINE 


MESSAGE TO OPERATOR IF MESSAGE TRUNCATED TO FIT 


FUNCTIONAL rT ofar ion S: 
CATION TEMP’ USED FOR CALCULATIONS 
CALLING SEQUENCE: 


.SBTTL UPDATE TOTAL CHAR. COUNT SUBROUTINE 

FUNCTIONAL DESCRIPTION: 

: PDATES TOTAL CHAR. COUNT TOTCC BASED ON CURCC. 

; VAST MESSAGE 1§ TRUNCATED TO FIT INTO THE 

: BUFFER IF TOTAL CHAR. COUNT EXCEEDS ‘'BUFLIM' A MESSAGE 

1S PRINTED TELLING THE OPERATOR THE TRUNCATION OCCURRED. 

> INPUTS: 

; CURCC= CHAR. COUNT OF MESSAGE BEING ADDED 

: TOTCC= TOTAL CHAR COUNT OF BUFFER ITS BEING ADDED TO 

: OUTPUTS: 

3 PC, ADDCC SUPDATED TOTAL CHAR. COUNT 
010160 ADDCC: ADD CURCC, TOTCC :ADD CURRENT 10 TOTAL, 
010160 CMP #BUFLIM,TOTCC COMPARE TO “BUFLIM™ 

BHIS  ADDCI [IF NOT MORE THEN BUFLIM" EXIT 


3 PRINT MESSAGE AND TRUNCATE COUNT 
PRINTF #MSGTRU 


MOV 
MOV 
MOV 
TRAP 
ADD 

010160 SLB CURCC, TOTCC :SUB CURRENT FROM TOTAL 

010164 MOV #BUFLIM, TEMP = :MOV “BUFLIM’ TO TEMP 

010164 SUB TOTCC, TEMP :SUB TOTAL FROM BUEL IN 

010150 MOV TEMP, CURCC 3 AND ESTABLISH NEW CURRENT 

010160 ADD curce, TOTCC ADD “ADJUSTED CURRENT" TO TOTAL CHAR. ( 

ADDC1: RTS ‘RETURN TO CALLER 


Ppp se =(SP) 
#1,-(SP) 


sP *R 
CSPNTF 
a4 ,SP 


NT. 


SEQ 122 


G 10 


SEQ 123 
CZ7KMSAO KMS11-BD/BE DCLT MACY11 30A(1052) 23=DEC-82 14:01 PAGE 124 
CZKMSA.P11 23=DEC“82 13:54 BUILD MESSAGE BUFFERS SUBROUTINE 
o318 ~SBITL BUILD MESSAGE BUFFERS SUBROUTINE 
4314 gee 
4315 : FUNCTIONAL DESCRIPTION: 
: 19 3 BLDBUF=-=- BUILD POINTER TABLE AND BUFFERS 
4318 : THIS SUBROUTINE ADDS A MESSAGE TO THE TRANSMIT OR EXPECT LIST 
rt 2 ; USING THE POINTER, BYTE COUNT, AND ADDRESS PASSED TO IT. 
4321 : INPUTS: 
43 : CURCC= CHAR. COUNT OF MESSAGE TO BE ADDED 
432 : CURADD= ADDRESS OF MESSAGE TO BE ADDED 
te 3 CPTR= ADDRESS oF POINTER TABLE WORD WHERE MESSAGE POINTERS ARE 
4326 : MSGTYP= VALUE TO USE AS AN INDEX TO FIND SOURCE OF MESSAGE DATA 
4327 : INDEX INTO DMSGCT() AND DMSGAD(). 
4328 3; OUTPUTS: 
4329 : A MESSAGE ADDED TO EITHER TXBUF OR CMPBUF 
$330 : APPROPRIATE POINTERS IN PTRTAB POINTER TABLE 
tts : CALLING SEQUENCE: 
$332 3 JSR PC, BLDBUF BUILD MESSAGE IN BUFFER AND ADD PTRS. 
4335 
4336 027520 BLDBUF 
4337 027520 010246 MOV R2,°(SP) :SAVE R2 AND R3 ON THE STACK 
4338 027522 010346 MOV R3,-(SP) 
rt He 027524 013702 010154 MOV CPTR,R2 
4341 927530 013722 010156 BLDB1: MOV CURADD, (R2)+ :PUT CURRENT ADD ON POINTER TAB 
axe 027534 0137¢¢ 010150 MOV CURCC, (R2)+ :PUT CURRENT CC ON POINTER TAB 
4343 027540 010237 010154 MOV R2,CPIR :PUT UPDATED R2 BACK TO CURRENT POINT 
4344 Og? 366 013702 010146 MOV MSGTYP,R2 *GET MESSAGE TYPE TO USE AS INDEX 
4345 027550 806306 ASL R2 sDOUBLE FOR WORD INDEX 
4346 027552 013737 010156 010164 MOV CURADD, TEMP :MOVE CURRENT ADD TO TEMP 
4347 027560 063737 010150 010164 ADD CURCC, TEMP :ADD CHAR COUNT TO IT TO GET END 
4348 027566 013703 010156 MOV CURADD,.R3 [SET R3 TO CURRENT START ADD 
4349 027572 Oleg? 002144 010170 BLDB2: MOV DMSGCT(R2), TEMP2 -GET BYTE COUNT 
4350 027600 016204 002172 MOV DMSGAD(R2).R4  ;PUT STARTING FROM ADD IN RG 
4351 027604 060437 010170 ADD 4,1 sADD IT TO TEMP2 TO GET END OF FROM 
4338 bere! h126e3 BLDB3: MOVB (Ro)+, (R3)4 :MOV BYTE FROM PATTERN TO BUFFER 
4353 027612 020337 010164 CMP R3, TEMP sALL DONE? 
4338 927618 001404 BEQ BLOBEX s1F SO EXIT 
4355 0276 020437 010170 CMP R4,TEMP2 21S PATTERN COUNT EXPIRED 
4356 027624 001762 BEQ BLOB :1F SO GO START AGAIN 
4357 027626 900779 BF BLOB :1F NOT GET ANOTHER BYTE 
6358 027630 063737 010150 010156 ®BLDBEX: ADD CURCC, CURADD sBUMP CURADD 
4359 027636 012603 MOV (SP)+,R3 sRESTORE R3 AND R2 
4360 027640 012602 MOV (SP)¢,R2 
<6! 027642 000207 RTS PC :RETURN TO CALLER 
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SEQ 126 
CZKMSAO KMS11580/BE CLT MACY11 30A(1052) 23-DEC=82 14:01 PAGE 125 
CZKMSA.P11 =. 23=DEC-B2 13:54 FCURAD FORCE CURRENT ADDRESS TO WORD BOUNDARY 
4 65 ~SBTTL FCURAD FORCE CURRENT ADDRESS TO WORD BOUNDARY 
4365 3o4 
4366 sFUNCTIONAL DESCRIPTION 
4367 : FORCE CURRENT ADDRESS: THIS ROUTINE IS USED TO ENSURE 
4368 s THAT CURADD POINTS TO A WORD BOUNDARY 
4369 : IF CURADD DOES NOT POINT TO A WORD BOUNDARY 
4370 : THEN A BYTE IS CLEARED AT CURADD 
4371 : URADD IS INCREMENTED 
437@ : AND TOTCC IS INCREMENTED 
437 © is 
4374 
4375 sCHECK CURRENT ADDRESS 
4376 027644 FCURAD: 
4377 027644 032737 000001 010156 BIT #1, CURADD :1S CURADD ODD ? 
4378 027652 001406 BEQ 10$ 7NO. GO EXIT 
4379 027654 105077 160276 CLRB  aCURADD [YES. INSERT A FILL BYTE 
4380 027660 005237 010160 INC TOTCC s INCREMENT CHARACTER COUNT 
4381 027664 005237 010156 INC CURADD ; AND ADDRESS TO FORCE TO A WORD BOUNDARY 
2 027670 000207 10$: RTS PC 


1 10 


SEQ 125 
CZKMSAO KMS11-BD/BE DCLT MACY11 30A(1052) 23=DEC-82 14:01 PAGE 126 
CZKMSA.P11 23-DEC-82 13:54 CREATE FACSIMILE OF TX BUFFER AND MESSAGE LIST 
4 a .SBITL CREATE FACSIMILE OF TX BUFFER AND MESSAGE LIST 
4386 i+ 
4387 FUNCTIONAL L DESCRIPTION: 
4388 ; ACSIMILE: THIS ROUTINE IS USED TO CREATE A FACSIMILE OF THE 
4389 : OF THE TRANSMIT LIST AND TRANSMIT BUFFER IN THE 
4390 ; EXPECT LIST AND EXPECT BUFFER. THE R UTINE 1S 
4391 ; NORMALLY CALLED WHEN USER COMMAND ‘‘SET E CxPECTIJ= 
4 9 : 1 PRANSMIT IS ENTERED. 
4394 ; CALLING SEQUENCE: JSR PC,FACSIMILE 
rete ; 
4397 3 DEFINITIONS CMPBUF = EXPECTED DATA BUFFER HOLDS MAX 512 BYTES 
4398 : TXBUF = TRANSMIT DATA BUFFER HOLDS MAX 512 BYTES 
4399 : :10TCC = ER OF BYTES IN TXBUF 
4400 : PTRTAB = TOP OF MESSAGE LIST POINTER TABLE 
4401 : CTOTCC = NUMBER OF BYTES IN EXPECT MESSAGE 
440 : CMPTOT = NUMBER OF EXPECTED MESSAGES 
440 : CMPPTR = EXPECTED MESSAGE LIST POINTER 
4404 : TXPTR = TRANSMIT MESSAGE LIST POINTER 
4405 : TXMTOT = NUMBER OF TRANSMIT MESSAGES 
4406 ; CCURAD = STORAGE ADDRESS OF MESSAGE IN CMPBUF 
4407 ; MSGLIN = MAXIMUM NUMBER OF MESSAGES THAT CAN BE STORED 
mers 3 BUFLIM = NUMBER OF BYTES IN BUFFER 
4410 ; BEGIN FACSIMILE ROUTINE 
6411 : C*COPY TXBUF ==> CMPBUF®) 
441 3 VE R1 
441 ; scINtt a 
4414 3 -REP 
4415 : 0 AEE APBUF IRI= CTXBuF JR1 
4416 : wee eRIERI¢1 
reht 4 5 . UNTIL R1 = BUFLIM 
6419 : (*NOW CALCULATE EXPECT List cif SSAGE POINTER®) 
4420 3 ..CMPPTR = PTRTAB + (2 © MSGLIM 
4422 : (*NOW PRIME | THe WHILE = DO LOOP®) 
4623 ; . TXPTR TAB 
4426 : * CCURAD = PUMPBUF 
4625 : ~TXPTR = TXPTR + 2 
4626 3 .CTOTCC = CTxPTRI 
4427 : MPTOT = 
4428 3 * WH LE TXMTOT = Se DO 
aoe? ; wee eLCMPPTR] = RAD 
46 : +s CRPPTR : CRSPRT +2 
4631 : weeeLCMPPTR] = CTOTCC 
445 : rT TXPTR = TXPTR @ 4 
443 ; oS CCURAD = C URAD ¢ CTOTCC 
4434 ; eoeel TOUCE = TR) 
4435 : **""CMPPTR = CnpPie °2 
4436 ;  *"CMPTOT = CMPTOT ¢ 1 
6437 ; » END WHIL d0 
64638 3 -.CTOTCE = TTOTCC 
6639 : END FACSIMILE ROUTINE 


J 10 
SEQ 126 


CZKMSAO KMS11-BD/BE DCLT MACY11 30A(1052) 23-DEC-82 14:01 PAGE 127 
CZKMSA.P11 23-DEC-B2 13:54 CREATE FACSIMILE OF TX BUFFER AND MESSAGE LIST 
4440 
4441 02767 FACSIMILE: 
444 02767 piece MOV R1,-(SP) rt R1 
4643 027674 005001 CLR 1 SINIT R1 
44644 027676 116161 003406 004406 108: MOVB TXBUF (R11), CMPBUF (R1) ‘COPY TX BUFFER TO EXPECTED BUFFER 
4445 027706 005201 INC [BUMP INDEX 
4446 0 7206 920127 001000 CMP R1,#BUFLIM TALL DATA COPIED ? 
4467 027712 001371 BNE 10$ [NO, BRANCH 
4449 027714 012701 000017 208: MOV #MSGLIM,R1 sMESSAGE LIMIT 
4450 0277 9 906501 ASL R1 {MULTIPLY BY 
4451 027722 006301 ASL R1 ‘MULTIPLY BY 
445 027724 SEE 006406 010054 MOV #PTRTAB,CMPPTR sTOP OF LOOINTER 1 ABLE 
445 027732 060137 010054 ADD R1,CMPPTR ‘START OF FAPECTED POINTER TABLE 
4656 027736 005001 CLR R1 TINIT RI 
4456 :SET UP WHILE = DO LOOP 
4457 027740 012737 006406 010052 MOV #PTRTIAB,TXPTR sT™X POINTER NOW AT TOP OF TABLE 
4458 02774 012737 004406 O88 MOV #CMPBUF ,CCURAD +s TRANSFER ADDRESS OF 1ST MESSAGE 
4659 027754 062737 000002 01005 ADD #2, TXPTR [BUMP POINTER 
4460 027762 017737 160064 010060 MOV atxPTR CTOTCC *BYTE COUNTER 1ST MESSAGE 
4461 027770 005037 010056 CLR CMPTOT SINIT EXPECTED MESSAGE COUNT 
446 WHILE uy (RESSAGE pfOTAL © EXPECTED MESSAGE TOTAL DO 
4464 027774 023737 010074 010056 30$: CMP MTOT, CMPTOT ALL MESSAGES COPIED ? 
4465 030002 001436 BEOQ 10s tYES, RANCH 
4466 030004 013777 010062 160042 MOV CCURAD,aCMPPTR TRANSFER epeness OF MESSAGE 
4467 030012 062737 000002 010054 ADD #2, CMPPTR ‘BUMP POINTER 
4468 030020 013777 010060 160026 MOV CTOTCC aCMPPTR ‘BYTE COUNT OF MESSAGE 
4469 030026 060737 000004 01005 ADD #4, 1XPTR ‘BUMP TX MESSAGE POINTER 
4470 0300 063737 010060 01006 ADD CTOTCC, CCURAD sCALC. Ly pa ADDRESS 
4471 yADJUST ODD ADDRESS 
4472 030042 032737 000001 010062 BIT #1, CCURAD 31S COMPUTED ADDRESS ODD ? 
4473 030050 00140 BEQ 35§ [NO. OMIT ADJUSTMEN 
4474 030052 005237 010062 INC CTURAD YES. INCREMENT ADRESS 
4475 030056 35$: 
4476 030056 017737 157770 010060 MOV aTxPTR, CTOTCC sBYTE COUNT NEXT MESSAGE 
4477 030064 0627 7 000002 010054 ADD #2,CMPPTR [BUMP POINT 
4478 030072 005237 010056 INC MPTOT S INCREMENT MESSAGE COUNT 
4479 030076 000736 BR 0$ [DO IT AGAIN 
4480 sEND WHILE = DO 
rot + 030100 013737 010076 010060 40$: MOV TTOTCC, CTOTCC sCOPY TOTAL CHARACTER COUNT 
468 SEND ROUTINE 
4484 030106 012601 MOV (SP)+,R1 sRESTORE R1 
4485 030110 000207 RTS PC RETURN 
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SEQ 127 

CZ7KMSAO KMS11-BD/BE guy MACY11 30A(1052) 23-DEC-82 14:01 PAGE 128 

CZKMSA.P11 23=DEC=“82 13:54 QUEUE UP ALL REC BUFFERS FOR MULTIPOINT 
rei SBITL QUEUE UP ALL REC BUFFERS FOR MULTIPOINT 
4490 
4491 ++ 
ret: 3 FUNCTIONAL DESCRIPTION: RXQUAL = QUEUE ALL REC BUFFERS 
rr? | : THIS ROUTINE QUEUES ALL REC BUFFERS FOR VALID LINES 
44%6 3 SUBORDINATE ROUTINES USED: 
4497 3 GTVIND = LOADS INDEX WITH OFFSET [fO NEXT 
4498 ; VALID LINE AND LOADS TRIBN WITH 
4499 3 ADDRESS OF NEXT VALID LINE 
4500 3 ULRPLS = MOVES RXPTR FOR THIS LINE TO 
4501 3 CPTRR FROM CPTRLS. 
4502 3 LOGAQR = QUES REC BUFFER POINTED TO BY 
4505 3 CPTRR AND LOGS THIS IN EVENT LOG 
4504 3 LDRPLS = MOVES VALUE OF CPTRR TO SLOT IN 
rests 3 CPTRLS FOR THIS LINE 
4507 3 CALLING SEQUENCE: 
4508 3 JSR PC,RXQUAL 
4509 i-- 
i 
s2t¢ 030112 012737 177777 007642 RXQUAL: MOV #-1, INDEX sSET INDEX TO <1 
4513 030120 004737 03040 MQU1: JSR PC,GTVIND sGET NEXT VALID INDEX 
4514 030124 022737 000010 007642 CMP #8., INDEX 31S ALL DONE 
4515 030132 001411 BEQ RXQUEX s1F SO EXIT 
4516 030134 004737 030454 JSR PC,ULRPLS sLOAD CPTRR FOR THIS LINE 
4517 030140 052737 000004 010230 BIS #QRX,FLAG s INDICATE RX QUEUED 
4518 030146 004737 031142 JSR PC ,LOGAQR 
4519 030152 004737 030434 JSR PC,LDRPLS sRELOAD RX PTR LIST 
$289 030156 000207 RXQUEX: RTS PC sRETURN TO CALLER 
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L 10 
SEQ 128 


23-DEC=82 14:01 PAGE 129 


LOAD CPTRLS LIST INITIALLY 


-SBTTL LOAD CPTRLS LIST INITIALLY 
+e 
FUNCTIONAL DESCRIPTION: LCPRLS LOAD CPTR LIST INITIALLY 
THIS ROUTINE LOADS UP THE CPTRLS LIST FOR ALL 
VALID LINE NUMBERS IN THE TRIBLS IT ALSO LOADS 
THE DVRCLS LIST FOR MSG COUNTS. 
INPUTS: RXMTOT = TOTAL NUMBER OF RX MSGS PER LINE 
OUTPUTS: CPTRLS = LOADED WITH POINTERS TO THE RXPTR TABLE 


JSR 
LCPREX: RTS 


SUBORDINATE ROUTINES USED: 
GTVIND = 


DVRCLS = LOADED WITH RXTOT COUNT FOR EACH LINE 


GETS NEXT VALID INDEX BY 

CHECKING TRIBLS FOR NON ZERO ENTRY 
LCPRL1 = LOADS POINTER TABLE FOR LINE AT THIS 
0) A beg AND RXMTOT TO DVRCLS FOR 


PC,LCPRLS 
#-1, INDEX SET UP INDEX VALUE TO ~1 
PC,GTVIND GET VALID INDEX 
#8. , INDEX 31S IT 8? 
LCPREX sBRANCH IF 8. 
PC,LCPRL1 :1F NOT LOAD CPTRLS FOR THIS LINE. 
PC RETURN TO CALLER WHEN DONE WITH ALL. 


m 10 


SEQ 129 
CZ7KMSAO KMS11=BD/BE_ cut MACY11 30A(1052) 23-DEC-82 14:01 130 
CZKMSA.P11 - 23=DEC-82 13:54 LOAD CPTRLS AND DURCL S” FRO INDEX 
4557 .SBTTL LOAD CPTRLS AND DVRCLS FROM INDEX 
4559 544 
4360 ; FUNCTIONAL DESCRIPTION: LCPRL1 = LOAD CPTRLS AND DVRCLS FROM INDEX 
456 : THIS ROUTINE LOADS UP THE CPTRLS LIST FOR THE 
riot 3 INDEX VALUE AND THE DVRCLS IS LOADED WITH RXMTOT. 
4565 > INPUTS: RXMTOT - TOTAL NUMBER OF RX MSGS PER LINE 
4966 : PTR23 = START OF RX POINTER TABLE 
4568 : OUTPUTS: CPTRLS = LOADED WITH POINTERS 10, THE RXPTR LIST 
4369 : DVRCLS = LOADED WITH RXMTOT COUNT 
4571 : SUBORDINATE ROUTINES USED: 
4572 : MIPLY = MULTIPLIES VALUE IN INDEX BY VALUE IN 
4573 : TEMP AND THEN ADDS THAT RESULT TO VALUE 
4574 : IN TEMP2 AND PUTS FINAL RESULT IN TEMP2 
4576 : CALLING SEQUENCE: 
4577 : JSR PC,LCPRL1 
i i 
4580 030210 012737 006576 010170 LCPRL1: MOV #PTR23,TEMP2 SET UP TEMP 2 AS BASE 
4581 030216 013737 007642 010046 MOV INDEX, MPLY 'SET UP MULTIPLIER 
4582 030224 012737 000074 010164 MOV #60. , TEMP [SET UP MULTIPLICAN 
4583 030232 004737 030356 JSR PC,MTPLY :GO MULTIPY 
4584 030236 013703 007642 LCPR2: MOV INDEX, R3 
4585 030242 113763 010112 007602 MOVB  RXMTOT,DVRCLS(R3) ;LOAD UP COUNT bist 
4586 030250 006303 ASL R3 [MAKE R3 WORD INDEX 
4587 030252 013763 010170 007542 MOV TEMP2, CPTRLS(R3) SET UP POINTER TABLE 
4588 030260 000207 RTS PC [RETURN TO CALLER 
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SEQ 130 
CZKMSAO KMS11-BD/BE DCLT MACY11 30A(1052) 23- =DEC C-82 14:01 PAGE 131 
CZKMSA.P11 23=DEC-B2 13:54 CLEAR RECEIVE POINTER LIST 
4591 .SBTTL CLEAR RECEIVE POINTER LIST 
459 i 
4594 ; FUNCTIONAL DESCRIPTION: CLRPLS = CLEAR RK POINTER LIST 
$232 ; THIS ROUTINE CLEARS ALL 8 SLOTS OF THE CTPRLS 
4397 : OUTPUTS: CPTRLS = IS ZEROED IN ALL SLOTS 
4599 + CALLING SEQUENCE: 
4600 ; JSR PC,CLRPLS 
4 * 
4603 030262 012737 000010 010164 CLRPLS: MOV #8., TEMP 
4604 030270 012703 007542 MOV #CPTRLS,R3 ;LOAD START OF LIST TO R3 
4605 030274 9050¢5 CLRPL1: CLR (R3)4 *CLEAR THIS SLOT 
4606 030276 005337 010164 DEC TEMP 
4607 030302 001374 BNE CLRPL1 s1F NOT DONE GO BACK 
4608 030304 000207 CLRPEX: RTS PC ‘RETURN TO CALLER WHEN DONE 
4610 


B11 


SEQ 131 
CZKMSAO Ks; D/BE DCLT MACY11 30A(1052) 23-DEC-82 14:01 PAGE 132 
CZ7KMSA.P11 =DEC-B2 13:54 LOAD TX POINTER LIST INITIALLY 
461 .SBITL LOAD TX POINTER LIST INITIALLY 
4614 i 
4615 ; FUNCTIONAL DESCRIPTION: LCPTLS = LOAD TRANSMIT POINTER LIST 
4616 ; HIS ROUTINE LOADS CPTTLS WITH TX POINTERS 
4617 ; OR EACH VALID LINE. 
4618 : INPUTS: 
4619 : TXMTOT = TOTAL NUMBER OF TX MSGS 
4620 : PTRTAB = POINTER TO TOP OF mx POINTER TABLE 
462 + OUTPUTS: 
46 3 CCITLS = LOADED WITH POINTERS TO TX POINTER TABLE 
4624 ; FOR ALL VALID LINES 
4625 ; DVTCLS - TX MSG COUNT LIST LOADED WITH MSG COUNTS 
4626 ; FOR ALL VALID LINES 
4627 : SUBORDINATE ROUTINES USED: 
4628 ; GTVIND = GETS NEXT VALID INDEX 
46 3 : CHECKING TRIBLS FOR Non” ZERO ENTRY 
4631 ; LOTPLS - LOADS VALUE FROM CPTR TO CPTTLS IDEXED 
4632 : BY TRIBN 
ret 74 3 LOTCLS - LOADS DVTCT TO DVTCLS INDEXED BY TRIBN 
4636 + CALLING SEQUENCE: 
4637 ; JSR PC,LCPTLS 
1639 ou 
4640 030306 013737 010074 010072 LCPTLS: MOV TXMTOT,DVICT ;LOAD UP COUNT 
4641 030314 012737 006406 010154 MOV #PTRTAB,CPTR 
4642 030322 012737 177777 007642 MOV #-1, INDEX ;LOAD INDEX WITH 1 
4643 030330 004737 030408 LCPT1: JSR PC, GTVIND [GET VALID INDEX 
4644 030334 022737 000010 007642 CMP #8. , INDEX SIS THIS THE END 
4645 030342 001404 BEQ LCPTEX SEXIT IF SO 
4646 030344 004737 030572 JSR PC ,LDTPLS SLOAD TX POINTER LIST 
4647 030350 004737 030632 JSR PC-LDTCLS SLOAD TX COUNT LIST 
4668 030354 000207 LCPTEX: RTS PC SRETURN TO CALLER 
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SEQ 132 
CZKMSAO per. psut MACY11 30A(1052) 23-DEC+82 14:01 PAGE 133 
CZKMSA.P11 25-DEC=82 13:54 MULTIPY 
4650 -SBTTL MULTIPY 
4652 
465 ; "FUNCTIONAL DESCRIPTION: MTPLY- + tg 
4654 H THIS ROUTINE MULTIPLIES THE aot IN MPLY BY 
4655 ; THE VALUE_IN TEMP AND THEN ADDS IN THE PUALUE OF TEMP2 
te28 : WITH THE RELSUT GOING TO TEMP2 
4658 ; INPUTS: TEMP2 = INITIALLY VALE 
4659 ; TEMP = VALUE TO MULTIPLY BY 
re 3 MPLY = NUMBER OF TIMES TO MULITPLY 
ree ; OUTPUTS: TEMP2 = RESULT OF CMPLY * TEMPJ+TEMP2 
4664 ; CALLING SEQUENCE: 
4665 ; JSR PC MTPLY 
4666 o 
4667 
4668 030356 005737 010046 MTPLY: TST MPLY 
4669 030362 001406 BEQ MTPLEX IF ma prey ee a ZERO QUIT 
4670 030364 063737 010164 010170 ADD TEMP, TEMP2 ZADD THE FACTOR ASE 
4671 030372 005357 010046 DEC MPLY ;COUNT DOWN THE MULTIPLIER 
4672 030376 000767 BR MTPLY [G0 BACK FOR MOR 
4673 030400 000207 MTPLEX: RTS PC TRETURN TO CALLER 
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SEQ 133 
CZKMSAO KMS11-BD/BE DCLT MACY11 30A(1052) 23=DEC-82 14:01 PAGE 134 
CZKMSA.P11 23-DEC“82 13:54 GET NEXT VALID INDEX 
4675 ~SBTTL GET NEXT VALID INDEX 
4676 
4677 34+ 
tere : FUNCTIONAL DESCRIPTION: GTVIND = GET NEXT VALID INDEX 
4680 ; THIS LOADS INDEX WITH INDEX VALUE OF NEXT VALID LINE. THIS ALSO 
6681 ; LOADS TRIBN WITH THE NUMBER. 
468 : LINE BEING THE LOCATION IN THE TRIBLS THAT HAS A NON-ZERO 
bee ty 3 ENTRY. 
4685 : INPUTS: INDEX =< SET TO VALUE OF LAST INDEX 
4686 : OUTPUTS: INDEX = SET TO VALUE OF THIS LINE 
4687 : TRIBN = NUMBER OF THIS LINE 
6688 : CALLING SEQUENCE: 
6689 ; JSR PC ,GTVIND 
‘eer - 
4692 030402 013703 007642 GTVIND: MOV INDEX,R3 
4693 030406 905203 GTv11: INC 
46 030410 116337 007622 007636 MOVB TRIBLS(R3), TRIBN LOAD TRIBN 
4695 030416 123727 007636 000377 CMPB TRIBN,#377 sSEE IF EMPTY SLOT OR NOT 
46 030424 001770 BEQ GTvI1 :1F EMPTY GO GET ANOTHER 
4697 030426 010337 007642 MOV R3, INDEX sLOAD INDEX VALUE IF NOT ZERO 
4698 030432 000207 RTS PC sRETURN TO CALLER WHEN DONE 
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SEQ 134 
CZKMSAO KMS11-BD/BE DCLT MACY11 30A(1052) 23-DEC-82 14:01 PAGE 135 
CZKMSA.P11 23-DEC-82 13:54 LOAD REC POINTER LIST 
4700 SBTTL LOAD REC POINTER LIST 
470 : FUNCTIONAL DESCRIPTION: DRPLS = LOAD RX POINTER LIST FROM CPTRR 
470 : THIS ROUTINE moves DATA FROM CPTRR TO THE SLOT IN THE 
4704 ; CPTRLS INDEXED BY INDW. 
4705 3 INPUTS: INDW = WORD INDEX INTO LIST 
4706 ; OUTPUTS: CPTRLS = CORRECT SLOT LOADED WITH DATA FROM CPTRR 
4707 3 SUBORDINATE ROUTINES USED: 
4708 ; GETIND = GETS INDW FOR THIS TRIBN 
4709 : CALLING SEQUENCE 
4710 ; JSR PC,LDRPLS 
in 
4718 030434 004737 031102 LDRPLS: JSR PC,GETIND :GET_INDW FOR THIS TRIBN 
4714 030440 013703 007640 MOV INDW,R3 “MOVE WORD INDEX TO R3 
4715 030466 013763 010152 007542 MOV CPTRR, CPTRLS(R3) SLOAD CPTRLS LIST 
4716 030452 000207 RTS PC SRETURN TO CALLER 
4718 SBTTL UNLOAD CTPRR LIST 
4720 ; FUNCTIONAL DESCRIPTION: ULRPLS = UNLOAD RX POINTER LIST 
4721 ; HIS ROUTINE MOVES DATA FROM CPTRLS SLOT INDEXED 
4722 ; BY INDW PTRR 
4723 + IMPLICIT INPUTS: 
4724 : TRIBN - NUMBER OF CURRENT LINE 
4725 : OUTPUTS: CPT - VALUE FROM CPTRLS 
4726 : SUBORDINATE ROUTINES USED: 
4727 : TIND = GET INDW FOR THIS TRIBN 
4728 + CALLING SEQUENCE: 
4729 ; JSR PC,ULRPLS 
int - 
4732 030454 004737 031102 ULRPLS: JSR PC,GETIND :GET INDEX 
4733 030660 013703 007640 MOV INDW,R3 ;MOVE WORD INDEX TO R3 
4734 030466 016337 007542 010152 MOV CPTRLS(R3),CPTRR LOAD CPTRR FROM LIST INDEX 
4735 030472 000207 RTS PC RETURN TO CALLER 
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CZKMSAO_KMS11=BD/BE DCLT MACY11 30A(1052) 23-DEC- 14:01 PAGE 1 
CZKMSA.P11 25-DEC=82 13:54 . cet Ret POINTER to cPtRe ” 


Ht -SBTTL GET REC POINTER TO CPTR 


SEQ 135 


"FUNCTIONAL DESCRIPTI 
THIS ROUTINE G 
BUFFER. 
INPUTS: INDEX = INDEX VALUE FOR LINE 
° “or WITH ADDRESS OF RX BUFFER FOR THIS LINE 
MULTIPLIES INDEX BY TEMP AND ADDS TEMP2 TO RESULT 


PC,GRPTCP 


ON: GRPTCP = GET RX POINTER TO CPTR 
ETS THE RX POINTER TO CPTR FOR USE IN BUILD 


OUTPUTS: CPT 
SUBORDINATE ROUTINES US 
CALLING seco 


GRPTCP: MOV INDEX ,MPLY ;SET UP MULPILIER 
MOV MP 


#60. 
010050 MOV RxPiR FERP? 
030356 JSR MTPLY 
010170 


iC! * RXPTR = POINTER ADDRESS 
010154 MOV TERP2, CPIR 7 SE 


wroOn 
oOnocon& 
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SEQ 136 
CZ7KMSAO KMS11-BD/BE DCLT MACY11 30A(1052) 23=DEC-82 14:01 PAGE 137 
CZKMSA.P11 23=DEC “82 13:54 LOAD DvRCT LIST 
£228 »SBTTL LOAD DvRCT LIST 
4761 : * FUNCTIONAL DESERET ION LDORCLS = LOAD RX COUNT LIST 
476 ; THIS ROUTINE LOADS THE VALUE FROM DVACT TO 
476 ; HE SLOT IN DVRCLS INDEXED BY TRIBN 
4764 3 INPUTS: TRIBN = NUMBER OF LINE IN USE 
4765 ; DRVCT = COUNT VALUE TO GO TO LIST 
4766 ; OUTPUTS: DVRCLS= VALUE OF DRvCT 
4767 : SUBORDINATE ROUTINES USED: 
4768 3 GETIND = GET INDEX FROM TRIBLS 
4769 : CALLING SEQUENCE: 
4770 ; JSR PC,LORCLS 
hee - 
4773 030532 004737 031102 LDRCLS: JSR PC,GETIND 3GET IND 
4774 030536 013703 007642 MOV INDEX,R3 ;LOAD aS WITH BYTE INDEX 
4775 030542 113763 010110 007602 MOVB DVRCT,DVRCLS(R3) ‘LOAD LIST WITH COUNT 
rg aa 030550 000207 RTS PC RETURN TO CALLER 
rhe | » SBTTL UNLOAD DVRCT LIST 
4780 3 * FUNCTIONAL DESCRIOT ION: ULRCLS = UNLOAD RX COUNT LIST 
4781 : HIS ROUTINE UNLOADS THE VALUE TO DvRCT FROM 
4782 3 THe SLOT IN DVRCLS INDEXED BY TRIBN 
4783 : INPUTS: TRIBN = NUMBER OF LINE IN USE 
4784 3 DVRCLS= VALUE OF DRVCT 
4785 : OUTPUTS: 
4786 3 DRVCT - covet VALUE FROM LIST 
4787 ; SUBORDINATE a US 
4788 3 ND GET INDEX FROM TRIBLS 
4789 : CALLING SEQUENCE: 
4790 3 JSR PC,ULRCLS 
th92 = 
4793 030552 004737 031102 ULRCLS: JSR PC,GETIND sGET INDEX 
4794 030556 013703 007642 MOV INDEX,R35 ‘MOVE INDEX TO R3 
4795 030562 116337 007602 010110 MOVB DVRCLS(R3) ,DVRCT ‘UNLOAD LIST 
4796 030570 000207 RTS PC SRE TURN to CALLER 
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SEQ 137 
CZ7KMSAO KMS11-BD/BE DCLT MACY11 -saicaheneat ofs thine 14:01 PAGE 138 
CZKMSA.P11 23-DEC-82 13:54 D CPTR LIST (TRANSMIT POINTER) 
pie de -SBTTL LOAD CPTR LIST (TRANSMIT POINTER) 
4799 :¢ 
4800 : FUNCTIONAL Desenret ton: LOTPLS = LOAD TX POINTER LIST 
4801 3 THIS ROUTINE LOADS THE VALUE FROM CPTR TO 
480 3 THE TX POINTER LIST INDEXED BY TRIBN INDEX. 
480 3 pwr at E TRIBN = NUMBER OF LINE IN USE 
4804 ; OUTPUTS: CPTILS = SLOT LOADED WITH CPTR DATA 
4805 : QUAORD IWATE ney USED 
4806 3 ETIND = GET INDEX VALUE FROM TRIBLS 
4807 ; CALLING SEQUENCE: 
4808 3 JSR PC,LDTPLS 
$74 je- 
4811 030572 004737 031102 LOTPLS: JSR Fd ti :GET INDEX 
481 Oenen8 SE LAR 007640 MOV INDW,R MOVE INDEX TO R3 
4813 030602 013763 010154 007562 MOV CPTR,CPTTILS(R3) :LOAD LIST 
re He 030610 000207 RTS PC ;RETURN TO CALLER 
rab ~SBITL UNLOAD CPTR LIST (TRANSMIT POINTER) 
4818 3¢ 
4819 3 FUNCTIONAL DESCRIPTION: LTPLS = UNLOAD TX POINTER LIST 
4820 : THIS ROUTINE MOVES DATA FROM TX POINTER Ist 
4821 ; TO CPTR. 
482 : INPY UTS: Ld - WURBER OF LINE IN USE 
482 3; OUTPUTS: - VALUE FROM THE TX POINTER LIST 
4824 : SUBORDINATE ROUT INES USED 
4825 $ ETIND - GET INDEX FROM TRIBLS 
4826 : CALLING SEQUENCE: 
4827 3 JSR PC,ULTPLS 
1859 18 
4830 030612 004737 031102 ULTPLS: JSR orcas te 3GET INDEX 
4831 030616 013703 007640 MOV INDW,R sMOVE WORD INDEX TO R35 
483 920686 016337 007562 610154 MOV CPTTLS(R3),CPTR ;GET PTR FROM LiST 
4833 030630 000207 RTS PC ;RETURN TO CALLER 


111 


SEQ 138 
CZ7KMSAOD pers D/BE guy MACY11 30A(1052) 23-DEC-82 14:01 PAGE 139 
CZKMSA.P11 23=DEC=“B2 13:54 LOAD DVTCT LIST (TRANSMIT COUNT) 
aB3e SBITi LOAD DVTCT LIST (TRANSMIT COUNT) 
48 344 
4838 ; FUNCTIONAL DESCRIPTION: LOTCLS = LOAD TX COUNT LIST 
4839 : THIS ROUTINE LOADS A VALUE FROM DVTCT TO 
re ; THE TX COUNT LIST (DVTCLS). INDEXED BY TRIBN. 
484 : INPUTS: TRIBN = NUMBER OF LINE IN USE 
484 3 DVTCT = CURRENT TX COUNT FOR LINE 
4844 3 OUTPUTS: DVTCLS = SLOT LOADED WITH DVTCT 
4845 : SUBORDINATE ROUTINES USED: 
4846 ry T ~ GET INDEX FROM TRIBLS 
4847 : CALLING SEQUENCE: 
4848 3 JSR PC,LDTCLS 
re? 3;-- 
4851 030632 004737 931108 LDOTCLS: JSR PC,GETIND :GET INDEX 
4852 030636 013703 00764 MOV INDEX, R3 MOVE BYTE INDEX TO R3 
4853 030642 113763 010072 007612 MOVB DVTCT.DVTCLS(R3): ; LOAD Ll 
re Tf 030650 0207 RTS PC ‘RETURN O CALLER 
$338 »SBTTL UNLOAD DVTCT LIST (TX COUNT) 
4858 3 * FUNCTIONAL DESCRIPTION: LTCLS = UNLOAD TX COUNT LIST 
4859 : Ws ROUT INE TAKES DATA FROM DVTCLS AND MOVES 
4860 3 It TO DVTCT 
4861 3 INPUTS: TRIBN = NUMBER OF LINE IN USE 
486 3 OUTP DVTCT = TRANSMIT COUNT VALUE 
486 ; SUBORDINATE ROUTINES USED: 
4864 3 GETIND = GET INDEX VALUE FROM TRIBLS 
4865 : CALLING SEQUENCE: 
4866 3 JSR PC,ULTCLS 
4869 030652 004737 031102 ULTCLS: JSR PC,GETIND GET INDEX 
4870 030656 013703 00764 MOV INDEX ,R3 sMOVE BYTE INDEX TO R3 
4871 030662 116337 007612 010072 MOVB DVTCLS(R3),D 
rt! 030670 000207 RTS PC RETURN TO CALLER 


Ju 


SEQ 139 
CZKMSAO KMS11-BD/BE Bout MACY11 30A(1052) 3=DEC-82 14:01 PAGE 140 
CZKMSA.P11 23=DEC-B2 13:54 ALL RX POINTERS FROM LIST TO CPTRR 
4875 .SBTTi GET ALL RX POINTERS FROM LIST TO CPTRR 
ier? 
gee 
4878 : FUNCTIONAL DESCRIPTION: GARPFL = GET ALL RX POINTERS FROM LIST 
4879 3 THIS ROUTINE CHECKS ALL RX POINTERS FOR VALID LINES 
4880 3 IN CPTRLS AND MAKES SURE THEY ARE ALL ZERO. 
4881 : OuTPUTS: CPTRR = ZERO IF ALL cPTRLS 1S ZERO 
ret 3 NON ZERO IF NOT. 
6884 ; SUBORDINATE ROUTINES USED: 
4885 ; VIND = GET VALID INDEX 
4886 ; GLRPLS - UNLOAD CPTRR LIST TO CPTRR 
4887 3 CALLING SEQUENCE: 
4888 $ JSR PC ,GARPFL 
re 24 ted 
4891 030672 013737 007636 010176 GARPFL: MOV TRIBN, TEMPS 
4892 030700 012737 177777 007642 MOV #-1, INDEX 
4893 030706 004737 03040 GARP1: JSR PC,GTVIND :GET VALID INDEX 
6894 030712 022737 000010 007642 CMP #8., INDEX OMPARE INDEX 
4895 03072 001405 BEQ GARPE X cenit IF DONE 
4896 030722 004737 030454 JSR PC,ULRPLS :LOAD CPTRR WITH VALUE 
4897 030726 005737 010152 TST CPTRR [TEST THE VALUE 
4898 030732 001765 BEQ GARP1 SIF ZERO CHECK NEXT 
6899 030736 013737 010176 007636 GARPEX: MOV TEMPS, TRIBN 
4900 030742 000207 RTS PC ;RETURN TO CALLER WHEN DONE 
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SEQ 140 
CZ7KMSAO eek D/BE guy MACY11 seettahieteld A tat 14:01 PAGE 1 
CZKMSA.P11 25-DEC=82 13:54 T ALL TX COUNTS FROM fist. TO DvTCT 
490 ~SBITL GET ALL TX cont FROM LIST TO ovict 
490 sRETURN WITH DVTCT=1 bo ANY COUNT HAS SOME IN IT 
4904 :1F ALL COUNTS ARE ZERO EXIT 
4906 
4907 3 "FUNCTIONAL DESCRIPTION: GATCFL = GET ALL TX COUNTS FROM LIST 
4908 : 1S ROUTINE GETS AND CHECKS ALL TX COUNTS TO BE ZERO 
4909 : OUTPUTS: DVTCT = ZERO _IF LIST IS ZERO 
4910 : NON ZERO IF NOT 
4911 : SUBORDINATE ROUTINES USED: 
491 : TVIND GET NEXT VALID INDEX 
491 3 CALLING SEQUENCE: 
aoe ; JSR PC ,GATCFL 
4916 030744 aE TELA 007636 010176 GATCFL: MOV TRIBN, TEMPS 
4917 030752 012737 177777 007642 MOV #-1, INDEX 
4918 030760 005037 01007 CLR V CLEAR COU 
4919 030764 seth tA 03040 GATC1: JSR A Tag LL GET VALID INDEX 
4920 030770 022737 000010 007642 CMP #8., INDEX :1S INDEX =8 ALL DONE 
4921 030776 001410 BEQ GATCEX s1F SO EXIT 
4922 031000 013703 007642 MOV INDEX ,R3 
4925 031004 105763 007612 TSTB DVTCLS(R3) 1S THIS COUNT 0 
4924 031010 001765 BEQ GA ‘ye :1F THIS ONE IS ZERO 
4925 031012 big as 000001 010072 MOV #01, LOAD COUNT WITH A 1 
4926 031020 013737 010176 007636 GATCEX: MOV TEnéS. TRIBN 
4927 031026 000207 RTS RETURN TO CALLERR 
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SEQ 141 
CZ7KMSAO KMS11-BD/BE LT MACY11 seat hia ef mest te 14:01 PAGE 142 
CZKMSA.P11 2 Ore. BS 13:54 NEXT TX POINTER FROM LIST 
49 9 .SBTTL GET NEXT TX POINTER FROM LIST 
4931 pee 
49 ¢ 3 FUNCTIONAL DESCRIPTION: GNTXPR = GET NEXT TX POINTER 
49 : THIS ROUTINE GETS THE NEXT TX P PO! NTER TO CPTR 
49 3 OUTPUTS: CPTR = POINTER FOR NEXT TRANSMIT MESG 
4935 ; SUBORDINATE ROUTINES USED: 
4936 ; GTVIND = GET VALID INDEX 
4937 : CALLING SEQUENCE: 
4938 : JSR PC, GNTXPR 
4940 031030 022737 000010 007642 &NIXPR: CMP #8. - INDEX :1S INDEX = DONE 
4941 031036 001003 BNE GNTX1 
494 031040 012737 177777 007642 GNTX2: MOV #-1, INDEX 
4943 031046 004737 030402 GNTX1: JSR PC, GTVIND 
4944 031052 022737 000010 007642 CMP #8. , INDEX 
4945 031060 001767 BEQ GNTX 
4946 031062 004737 030652 JSR PC,ULTCLS 3GET ne —— LIST 
4947 031066 005737 010072 TST DviCT STEST C 
4948 031072 001756 BEQ GNTXPR 
4949 031074 004737 030612 JSR PC,ULTPLS sUNLOAD POINTER 
4950 031100 000207 RTS PC [RETURN TO CALLER 
4952 .SBTTL GET INDEX BYTE AND WORD 
ioe: 
4955 ; "FUNCTIONAL DESCRIPTION: GETIND = GET INDEX FOR WORD AND BYTE 
4956 : THIS ROUTINE GETS INDEX LOADED WITH INDEX AND INDW WITH INDEX 
4957 : FOR WORD. IF TRIBLS ENTRY IS EQUAL TO TRIBN 
4958 : OUTPUTS: INDEX = BYTE INDEX 
4959 : INDW = WORD INDEX 
4960 : CALLING SEQUENCE: 
4961 ; JSR PC,GETIND 
4964 031102 012703 177777 GETIND: MOV #-1,R3 sLOAD R3 WITH ~1 
4965 031106 005203 GETI1: INC [BUMP R3 
4966 031110 022703 000010 CMP #8. RS ;ARE WE ALL DONE 
4967 031114 001772 BEQ GETIND ACK 
4968 031116 12633 007622 007636 CMPB goth SCARS). TRIBN’ sELSE COMPARE entt THIS LINE 
4969 031124 001370 BNE GETI1 :BRANCH IF NO MATCH 
4970 031126 010337 007642 GETI2: MOV R3, INDEX SSTORE OFF BYTE INDEX 
4971 931132 906503 ASL R [MAKE UP WORD INDEX 
4972 031134 010337 007640 MOV R3, INDW ‘STORE OFF WORD INDEX 
4973 031140 000207 RTS PC [RETURN TO CALLER 


M11 


SEQ 142 
CZKMSAO KMS11- sR/BE cut MACY11 30AC1052) oF ADE C82 14:01 PAGE 143 
CZKMSA.P11 23-DEC-82 13:54 G AND QUE REC BUFFERS 
497 »SBTTL LOG AND QUE REC BUFFERS 
4978 ; "FUNCTIONAL DESCRIPTION: LOGAQR = QUE AND LOG RX BUFFERS 
rete 3 THis ROUTINE QUEUES THE REC BUFFER POINTED TO BY 
4981 3 INPUTS: CPTRR = POINTS TO POINTER TABLE ENTRY 
498 ; IMPLICIT OUTPUTS: 
498 : BUFFER QUEUVED FOR THIS ENTRY 
4984 > CALLING SEQUENCE: 
4985 ; JSR PC,LOGAQR 
dons “ 
4988 031142 015706 010152 LOGAQR: MOV CPTRR,R2 ;LOAD R2 FROM POINTER 
4989 031146 011237 010170 MOV (R2), TEMP2 7SET UP ADDRESS FOR LOGGING 
4990 031152 012237 010104 MOV (R2)+,DVRKA :SET UP ADDRESS OF RECEIVE BUFFER FOR DEVICE 
4991 031156 011237 010172 MOV (R2), TEMPS SET UP CHAR COUNT FOR LOGGING 
4992 031162 011237 010106 MOV (R2) ,DVRCC [SET UP COUNT FOR DEV 
499 031166 010237 010152 MOV R2,CPTRR :LEAVE POINTER + | ai cate AT CHAR COUNT 
4994 031172 004737 064174 JSR PC,DVRXQ QUEUE REC BUFFER 
4995 031176 004737 024200 JSR PC.LOGRXQ ‘106 RxQ 
4996 031202 000207 RTS PC sRETURN TO CALLER 
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SEQ 143 
CZKMSAO_KMS11-BD/BE cul MACY11 30A(1052) 23-DEC-82 14:01 PAGE 144 
CZKMSA.P11 23-DEC-B2 13:54 SHOW MODE OF OPERATION, LOOP TYPE AND QUALIFIERS 
4998 .SBTTL SHOW MODE OF OPERATION, LOOP TYPE AND QUALIFIERS 
5000 p44 
5001 : FUNCTIONAL DESCRIPTION: 
300¢ : SHWOP = SHOW MODE OF OPERATION, LOOP, QULAIFIERS 
2003 ; PRINTED ON THE OPERATOR'S CONSOLE. 
5005 3: INPUTS: 
5006 : DEV1= MODE TYPE (MODTYP) 
5007 : DE Ves MAINT LOOP TYPE (MLTYP) 
5008 ; DEV3= "RUN PASS'’ COUNT (RPASS) = COUNT DOWN 
raed 3 DEV4= PARAMTERS WORD (PARAM) 
5011 > IMPLICIT INPUTS: 
2012 : MODES= TABLE OF ADDRESSES OF MODE NAME STRINGS 
2013 ; LOOPS= TABLE OF ADDRESSES OF LOOP TYPE NAMES 
5015 : CALLING SEQUENCE: 
5016 ; JSR PC, SHWOP 
raise ;-- 
5019 031204 013702 011470 SHWOP: MOV DEV1,R2 sGET THE MODE TYPE IN R2 
5020 031210 006302 ASL [MAKE IT A WORD TABLE OFFSET 
5021 031212 016237 003334 010164 MOV MODES(R2),TEMP :GET ADDRESS OF MODE-IN-ASCII 
5022 031220 013702 011472 MOV DEV2,R2 [GET MAINTENANCE LOOP TYPE 
5023 031224 00630 ASL ; 
5024 031226 012737 016420 010172 MOV #LPOO, TEMPS sLOAD TEMP3 TO POINT TO "'/LOOP=" 
5025 031234 005702 TST R2 ?SEE IF /LOOP=XXXXX OR NONE 
5026 031236 001003 BNE ; F /LOOP= OF SOME KIND 
5027 031240 012737 016417 010172 MOV #LPO, TEMPS [IF NO LOOP THEN DON'T PRINT ‘‘/LOOP=" 
5028 031246 016237 003352 010166 10$: MOV LOOPS(R2),TEMP1 :GET ADDRESS OF LOOP-IN-ASCII 
5029 031254 013737 011474 010170 MOV DEV3,TEMP [GET NUMBER OF PASSES 
5030 031262 PRINTS #SHFO, TEMP, TEMP3,TEMP1, TEMP2 
5031 031262 013746 010170 MOV TEMP2,-(SP) 
5032 031266 013746 010166 MOV TEMP1,=(SP) 
5033 031272 013746 010172 MOV TEMP3,=(SP) 
5034 031276 013746 010164 MOV TEMP, -(SP 
5035 031302 012746 017170 MOV #SHF6,-(SP) 
5036 031306 012746 000005 MOV #5,<(5 
5037 031312 010600 MOV SP.RO 
5038 031314 104416 TRAP  CSPNTS 
3039 031316 062706 000014 ADD #14,SP 
041 031322 005002 CLR 2 sNOW SET UP FOR QUALIFIERS IN ASCII 
504 031324 012737 016477 010164 MOV #PST, TEMP 
50438 031332 032737 000001 011476 BIT #STATB, DEVS :SEE IF /STATUS OR /NOSTATUS 
5044 031340 001003 BNE 1 °BR IF /STATUS 
5045 031342 012737 016475 010164 MOV #PNST, TEMP 
5046 031350 012737 016510 010166 1$: MOV #PCK, TEMP 
5047 031356 032737 000002 011476 BIT WDATCKB,DEV4  ;SEE IF /CHECK OR /NOCHECK 
048 031364 001003 BNE SBR IF /CHECK 
049 031366 012737 016506 010166 MOV #PNCK, TEMP1 
5050 031374 012737 016520 010170 2$: MOV #PEC, TEMP2 
5051 031402 . 032737 000004 011476 BIT #ECHOB DEVS sSEE IF /ECHO OR /NOECHO 
5052 03141 001003 BNE 3$ 7BR IF /ECHO 
5053 031412 012737 016516 010170 MOV #PNEC, TEMP2 
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SEQ 144 
_ SEKMSAQ KMS11 5RD/BE cL MACY11 30A(1052) ug3-DEC=82 14:01 PAGE 145 

?¥MSA.P11 23-DEC “B82 13:54 W MODE OF OPERATION, LOOP TYPE AND QUALIFIERS 

i 

056 031420 012737 016527 10176 38: MOV #PMS, TEMPS 

5057 0314 6 032737 000010 011476 BIT #MOCHK DEVS sSEE IF MODEM OR /NOMODEM 

5058 031434 901003 BNE ‘BRANCH IF MODEM 

2059 031436 012737 016525 010176 MOV #PNMS , TEMPS 

Hire 031444 5$: PRINTS #SHF1,TEMP,TEMP1,TEMP2, TEMPS 3, TEMPS, TEMPS **#RF Ute 

5062 031444 013746 010176 MOV TEMPS. -(SP) 
5063 031450 013746 010170 MOV TEMP2,-(SP) 
5064 031454 013746 010166 MOV TEMP1.=(SP) 
5065 031460 013746 010164 MOV TEMP ,-(SP) 
5066 031464 012746 017226 MOV #SHF1,<(SP) 
5067 031470 012746 000005 MOV #5,-(SP) 
5068 031474 010600 MOV SPR 

5069 031476 104416 TRAP CSPNTS 
5070 031500 062706 000014 ADD #14,SP 

2071 031504 000207 RTS PC RETURN 
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Q 145 
CZ7KMSAO KNS11=80/BE CLT MACY11 30A(1052) 23-DEC-82 14:01 PAGE 146 ™ 
CZKMSA.P11  23=DEC-B2 13:54 TRAVERSE COMMAND LINE SUBROUTINES 
5074 .SBTTL TRAVERSE COMMAND LINE SUBROUTINES 
07 344 
2077 : PS$TRV SUBROUTINE 
079 [PARSE THE COMMAND LINE SUBROUTINE 
5080 STAKE ACTIONS (VIA ACTION TREE) AS PARSING LINE 
2081 i PARSING DIRECTIONS FROM “CLI PARSING NODES 
508 ; PSNUM=NUMERIC CODE FROM DATA 
2084 : R1,R5=SCRATCH 
085 : REACTION CODE PARAMETER FROM TREE 
5086 : R3=PARSE TREE POINTER ' 
5087 : R&=INPUT STRING POINTER 
5088 > CALLING SEQUENCE: 
50289 : JSR PCPSTRV 
5090 pee 
5091 
209¢ 031506 PSTRV: 
5093 031506 013704 003364 MOV PSBUFA,R4 
5094 031512 013703 003366 MOV PSTREE.R3 
5095 031516 105714 P$TRS: TSTB  (R4) :SEE IF ANY CHARS LEFT IN INPUT STRING 
5096 031520 001441 BEQ PSEXIT “BR I 
5097 031522 121327 000013 CMPBs«(R'3) #11. [SEE IF SPECIAL CLI CHAR CODE OR ASCII 
5098 031526 003023 BGT 0$ <BR IF REGULAR ASCII CHAR. 
5099 031530 111305 MOVB = (R3),R5 *GET SPECIAL CHAR CODE INTO RS 
5100 031532 006305 ASL R 
$101 031534 016505 031550 MOV 10$(R5),R5 ;BUILD TRAVERSE ROUTINE ADDRESS 
2108 031540 062705 031550 ADD #10$,R5 
103 031544 004715 JSR PC, (R5) :JSR TO SPECIAL CLI TRAVERSE ROUTINE 
3104 031546 000763 BR PSTRS [GO SEE IF MORE OF STRING LEFT 
2106 031550 000114 108: ,WORD TRVERR-10$ ; TRAVERSE TABLE FOR “CLI FUNCTIONS’ 
$107 031552 000134 "WORD TRVEXI-10$ 31 
$108 031554 000152 iW TRVBR-10$ 2 
5109 031556 000162 . TRVBIF-108 : 
5110 031560 900204 ’ TRVSPA-10$ 34 
5111 031562 900 70 "WORD TRVNUM-10$ 35 
2118 031564 000604 "WORD  TRVALP=10$ 26 
113 031566 000650 : TRVALN=10$ 37 
5114 031570 000270 "WORD TRVOCT-10$ 38 
5115 031572 000256 "WORD TRVDEC-10$ 79 
3116 031574 000736 "WORD  TRVSTR-10$ 10 
5118 sNOT A SPECIAL CODE 
5119 031576 121314 20$: CMPB  (R3),(R4) sSEE IF FIRST CHAR OF STRING IS A MATCH 
3120 031600 001403 BEQ “BR IF A MATCH 
121 031602 004737 031646 JSR PC, TRVBRC :1F NOT A MATCH, GO TAKE MISS BRANCH 
128 031606 000743 BR PSTR : THEN GO BACK PT'G TO MISS NODE 
12 031610 004737 031626 228: JSR PC, TRVACT *1F A MATCH, GO DO ACTION DEFINED BY 
124 031614 062703 000004 ADD #4-R3 : ACTION CODE IN CLI NODE, THEN 
125 : ADJUST PTR TO NEXT CLI NODE 
126 031620 005204 INC RG SADJUST BUF PTR TO NEXT CHAR IF MATCH 
127 031622 000735 R P$TRS 
129 031624 000207 PSEXIT: RTS PC :RETURN FROM PARSER 


D 12 


MS} / T MACY11 30A(1052)_ 23=DEC-82. 14:01 PAGE 147 
cftmea Pt : F OOEC Bo 13:54 TRAVERSE COMMAND LINE SUBROUTINES 


SEQ 146 


1 0 qa ae eee eee—e—e—eE———EeEeeeeeee see wwe ee OH Se we es De a em me ar vO a oe ee ernroaonwoas 
131 
; -GOTO USER ACTION ROUTINE 
RVACT: 1(R3) 3GET ACTION CODE FROM CLI NODE 
$138 op sze 316302 900n0n —ERVACTE Noy 1083) :GE1 ACTION, cove, fnON. Cu 
135 031636 iF 705 003370 MOV PSACT RS [GET ADDRESS OF CLI ACTION ROUTINE 
2} 031642 004715 JSR pc, (Rr5) 7GO DO ACTION DEFINED BY CODE 
3 i 031644 000207 RTS PC SRETURN TO CALLING CODE 
139 -TAKE BRANCH IN TRE 
: : :GET BRANCH DISPLACEMENT FROM TREE 
AGE puree gagged Hhvher"egy” Git SG Pact RUST EIEN, 
sic 031654 000207 RTS PC + RETURN TO PSTRV 
5144 “NO BRANCH TAKEN 
6 TRVNOB: ADD #4,R3 s THINGS OK, UPDATE R3 TO POINT TO NEXT 
iy Sta Sa oe won  eABeS 5aPTBAE Bolt 
aaa 
RVERR: JSR PC, TRVACT sTAKE ERROR ACTION 
2189 £31085 12737 937626 003401 Fave Adve #1 -PSGDBD iSET ERROR RETURN FLAG, | sen 
5150 £31908 ieee 031624 JMP PSEXIT TRETURN DIRECT TO EXIT OF PS$TRV ROUTINE 
: P T sTAKE EXIT ACTION = 
2186 OF 786 ictee Oa sees a tere PscoeD ise! GOOD/BAD, FLAG 10 WSuccess (0) 
5137 ear ted 031624 JMP PSEXIT [RETURN DIRECT TO EXIT OF PSTRV ROUTINE 
$159 031722 004737 031626 TRVBR: JSR PC, TRVACT :GO TAKE BRANCH ACTION 
2160 031726 000137 031646 JMP TRVBRC 
: - T 
3188 ORR ited feet posers 1318 PSeDBD :SEE IF PSGDBD SET OR CLEARED BY ACTION 
5164 031742 00140 BEQ IF CLEAR FALL THRU TO NEXT NODE 
5165 031744 G01? 031646 JMP TRVBRC TELSE TAKE THE ‘MIS NCH saat tad 
3166 031750 000137 031656 1$: MP TRVNOB :JUST UPDATE TO NEXT NODE I I 
: SCLEAR “SPACE OR TAB FOUND’ FLAG 
$168 Set 093003 000011 —" co Wee) att [SEE IF CHAR. IN CMD LINE= TAB 
5170 031762 001003 BNE 2$ 7BR IF NO, NOT A TAB 
5171 031764 005204 INC RG [INC INPUT STRING POINTER 
517 31766 005205 INC RS [INDICATE A TAB FOUND 
5178 8 1770 000772 BR 1$ [G0 CHECK NEXT CHAR 
: a :SEE IF CHAR. IN CMD LINE= SPACE 
5175 oe 061003 enti: a one 108. - “BR IF NO, NON-SPACE OR NON-TAB CHAR, 
5177 032000 005204 INC R4 ZINC INPUT STRING POINTER 
5178 032002 003908 INC RS i INDICATE A SPACE FOUND 
2180 8 $006 stats 108: er >. iSEE IF ANY, SPACES OR TABS F OUND 
218) 5 O13 ies 7 031626 OER PC, TRVACT [G0 TAKE ACTION IF ANY FOUND 
2185 032016 000137 0 1886 MP TRVNOB > JUST GO UPDATE R3 TO NEXT NODE IF OK 
5184 032022 000137 B3iece 15$: JMP TRVBRC STAKE BRANCH (MISS) IF NONE FOUND 
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SEQ 147 
of ACY11 30A(1052) 23=DEC-82 14:01 PAGE 148 
yw A lee hs Stl 5.54 oe: “ TRAVERSE COMMAND LINE SUBROUTINES 
188 ; AND ASSUME + 
76 TRVDEC: MOV #10. ,PSRADX SUSE DECIMAL AS RADIX 
$188 oszoes g12737 gogn12 008876 tavDEC: may #10. 4P 
2188 040 TRVOCT: 3(SAME AS TRVNUM SINCE DEFAULT RADIX IS OCTAL) Beaty: 
5189 § 040 012737 000010 003376 TRVNUM: MOV #8. ,PSRADX SUSE OCTAL AS RADIX AND ASSU 
190 032046 8 005 TRVNMA: CLR R5 CLEAR DIGIT COUNTER 
2139 032050 107009 000053 (MPR CC RG) a's iSEE LF THERE S$ A + SIGN THERE 
2138 8 83 So OLoG Bn 19 ELSE PSRADX ALREADY SAYS +, JUST BR 
2194 8 060 139099 000055 108: CHEB (RG) "= :SEE LF THERE'S A = SIGN THERE 
132 Besoee 9039 ; 9 ‘SET "MINUS FLAG’’ (HI BYTE OF PSRADX) 
196 032066 112737 177777 003377 MOVB = #=1, PSRADX+1 
Hi se 005204 11$: INC RG ‘BUMP R& TO POINT r mer on 
; F CHAR. LESS THAN A "0" 
3300 b8o108 Oose84 eee a ee {BR IF YES. (NOT NUMERIC) Bry, 
3508 Seated 121427 000067 CPB (Ra) #67 :SEE LF CHAR. GREATER THAN A “'7 
5902 032110 003426 L ; a ould 
5208 835196 12378" ented co8 Cee eee EUS ECAN USE HIGHER LIMIT) 
3508 035} 2 121427 000071 CMPB (RG) #71 SEE IF DIGIT UAs A 8 OR 9 
ea eis tee Rien Bion PETS wen ocr wo 
5208 032130 012746 014105 mov wCLIBRX, 
5509 032134 012746 009001 MOV a: 
5510 032140 010600 MOV, SB_RO. 
BIE eet ma ieee at BEA 
1$ 032150 112737 177777 003401 MOVB —s#=1, PSGDBD sSET E U 
ae 032156 000474 BR 5$ : PRINT ERROR AND ee . 
; . GREATER THAN A “'9"* 
5516 032160 121427 000071 128: CHP Ra) 471 :SEE IF CHAR. EATER Th 
aE 3 odie st 44 138: INC RG [UPDATE CMD LINE PTR TO NEXT CHAR. 
2518 935196 $8508 : INC RS S INDICATE A NUMERIC |f OUND 
9220 032172 000741 BR 1$ *GO LOOK AT NEX a 
NY NUME 
2383 83st Oolaee ~ mh S TOE E a eoe ake MiSs" BRANCH 
383 $3508 o10c01 MOV R4,RI . GET POINTER TO START OF NUMERIC STRING 
esse Besshe 16030) ave Ben -CLEAR . WHERE VALUE WILL BE STORED 
256% Basses Uz08! 005576 33: bbws RID eRe east] CHAR AND CONVERT IT TO A # 
$258 GHS12 168708 gognen Sus #80 8d SHIFT CUMEM, YALE To MAKE OO 
$250 933556 10s 37 003374 003372 Aov CE NUN .PSCNT SAVE FOR LATER IN CASE DECIMAL RADIX 
Gk fess tat Sisn a mn IF WAGER OO BG 
a3 8 $ ‘3 th TeH — Bee psnun SERROR IF NUMBER TOO BIG 
5236 052246 123787 003376 000012 CAP PSRADK. #10. iSEE IF DECIMAL RADIX 
5237 032254 : 
Bh fers fran ome msm tet seen mot IF WEE 100 BI 
$240 032266 060237 003374 4$: ADD R2,PSNUM 
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16:01 PAGE 149 
TRAVERSE COMMAND LINE SUBROUTINES 
? SERROR IF NUMBER TOO BIG 
3$ 
PSRADK+1 7SEE IF NUM WAS PRECEDED BY A = SIGN 
15$ : BR IF NO 
P$NUM + ELSE NEGATE THE NUMBER BEFORE LEAVING 
PC, TRVACT *SINCE NUMERIC FOUND, GO TAKE ACTION 
TRVNOB :GO POINT R3 TO NEXT NODE 
#CLINBG ;PRINT NUMBER TUO BIG ERROR 
MOV #CLINBG,-(SP) 
MOV #1, -(SP) 
MOV SP,RO 
TRAP — CSPNTF 
#4,SP 
#-1,P$GDBD :SET ERROR RETURN FLAG 
TRVBRC STAKE ''MISS'’ BRANCH 
RS sCLEAR ALPHA FOUND FLAG 
(R4), #101 [SEE IF CHAR. LESS THAN A “‘A" 
2$ [BR IF YES (NOT ALPHA) 
(RG) #132 [SEE IF CHAR. GREATER THAN A ‘'2"* 
2$ [BR IF YES (NOT ALPHA) 
RG [UPDATE CMD LINE PTR TO NEXT CHAR 
R5 ‘INDICATE AN ALPHA WAS FOUND 
1$ :G0 LOOK AT NEXT CHAR. 
R5 [SEE IF ANY ALPHA'S WERE FOUND 
3$ :BR IF NO 
PC, TRVACT [IF ANY FOUND TAKE ACTION 
TRVNOB [THEN UPDATE R3 TO NEXT NODE -NO BRANCH 
TRVBRC [NONE FOUND, TAKE MISS BRANCH 
RS :CLEAR ALPHANUM FOUND FLAG 
(R4) , #60 [SEE IF CHAR. LESS THAN A “‘0" 
‘BR IF YES (NOT NUMERIC OR ALPHA) 
(RG), #72 [SEE IF CHAR. GREATER THAN A ‘9° 
1$ [BR IF YES (NOT NUMERIC) 
R4 [UPDATE CMD LINE PTR TO NEXT CHAR, 
R5 S INDICATE A NUMERIC FOUND 
108 °GO LOOK AT NEXT CHAR. a. 
(R4), #101 [SEE IF CHAR. LESS THAN A "‘A 
:BR IF YES (NOT ALPHA) 
(RG) #132 [SEE IF CHAR. GREATER THAN A “‘Z"* 
23 7BR IF YES (NOT ALPHA) 
R4 UPDATE CMD LINE PTR TO NEXT CHAR 
R5 S INDICATE AN ALPHA FOUND 
108 7GO LOOK AT NEXT CHAR. 
R5 [SEE IF ANY ALPHANUM'S WERE FOUND 
5 3 [BR IF NO 
PC, TRVACT [IF ANY FOUND TAKE ACTION 
TRVNOB [THEN UPDATE R3 TO NEXT NODE -NO BRANCH 
TRVBRC ‘NONE FOUND, TAKE MISS BRANCH 


SEQ 148 
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SEQ 149 
CZKMSAO Knsi1; D/BE bout MACY11 30A(1052) 23-DEC-82 14:01 PAGE 150 
CZKMSA.P11 = 23=DEC-82 13:54 TRAVERSE COMMAND LINE SUBROUTINES 
5297 10401 TRVSTR: MOV R4,RI :POINT R1 TO CMD STRING 
5298 af 0 3 MOV R3,R5 
$299 032512 06 9 990006 ADD #6.R5 :POUNT RS TO MATCH STRING FROM CLI NODE 
5300 032516 00 9 0 CLR Pstni SCLEAR CHAR MATCH COUNT 
$301 0 105715 28: TSTB ss (R5) 3 SEE IF END OF MATCH STRING YET 
2 02 032526 001411 BEQ 10$ Y 
03 0 105711 TSTB = (R11) +SEE f yn? OF CMD LINE YET 
5304 032530 001407 BEOQ 10$ ‘BR IF 
§305 032532 121115 CMPB Ss (R'1), (RS) 3 SEE IF YEHARACTERS MATCH 
5306 032534 901005 BNE 10$ F NO 
5307 0 3 005237 003372 INC PSCNT tMATCH -INCREMENT MATCH COUNT 
5308 032542 005201 INC R1 SUPDATE STRING POINTERS 
5309 032544 005205 INC RS 
3310 032546 000765 BR 2$ :BR TO CONTINUE CHECKING CHARS. 
§312 032550 005737 003372 10$: 1ST PSCNT ZWHEN DONE SEE IF ANY MATCHES FOUND 
5313 032554 001406 BEQ 15$ ‘BR IF NO, GO TAKE THE MISS BRANCH 
5314 032556 010104 MOV R1,R4 [POINT CMD POINTER TO END OF STRING & 
5315 032560 004737 031626 JSR PC‘ TRVACT SIF A MATCH FOUND. GO DO MATCH ACTION 
5316 032564 066303 000004 ADD 4(R3),R3 ‘UPDATE R3 TO NEXT NODE (NO BRANCH 
5317 032570 000207 RTS PC > (NO RETURN THRU TRVNOB SINCE DIFFERENT 
5318 : DISPLACEMENT DUE TO MATCH STRING) 
3319 032572 000137 031646 15$: JMP TRVBRC + GO TAKE BRANCH 
§321 : (PARSED OK), <1 IF ILL CMD..... 
5322 J rm eee meee eww cee eee cece cece ees e cece e cece cecoecececcesocoecoscoscses= 
5323 


H 12 


CZKMSAO_KMS11-BD/BE DCLT MACY11 30A(1052) 23-DEC+82 14:01 PAGE 151 
CZKMSA.P11 Re pEC BS 13:54 REPORT CODING EEC Fon . 


SEQ 150 


2 3 .SBTTL REPORT CODING SECTION 
532 
5 $$ poe 
5328 ; THE REPORT CODING SECTION CONTAINS THE 
2 2 : ‘'PRINTS’’ CALLS THAT GENERATE STATISTICAL REPORTS. 
5331 : 
HH 032576 BGNRPT 
33 032576 LSRPT:: 
5 
5336 032576 004737 024644 JSR PC REPORT CALL SUBROUTINE TO DUMP EVENT LOG 
2332 ; AND BASE TABLE OR TO GET LINE STATUS 
3335 
5340 
5341 
2e08 032602 ENDRPT 
5345 032602 L10013: 
5344 032602 104425 TRAP CS$RPT 
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SEQ 151 

CZ7KMSAO KMS11-BD/BE DCLT MACY11 30A(1052) 23-DEC-82 14:01 PAGE 152 

CZKMSA.P11 23=DEC<-82 13:54 PROTECTION TABLE 
2 ‘2 -SBTTL PROTECTION TABLE 
5347 p44 
5348 3; THIS TABLE IS USED BY THE RUNTIME SERVICES 
2 re 3 TO PROTECT THE LOAD MEDIA. 
2321 i 
5 26 032604 BGNPROT 
2327 032604 LSPROT:: 
e820 032604 177777 -1 sOFFSET INTO P=TABLE FOR CSR ADDRESS 
5356 032606 177777 =) sOFFSET INTO P-TABLE FOR MASSBUS ADDRESS 
2322 032610 177777 <1 sOFFSET INTO P-TABLE FOR DRIVE NUMBER 
5359 032612 ENDPROT 
5360 
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SEQ 152 
CZKMSAO KMS11-8D/BE DCLT MACY11 30A(1052) 23-DEC-B2 14:01 PAGE 153 
CZKMSA.P11 3 OEE 2 13:54 INITIALIZE SECTION 
.SBTTL INITIALIZE SECTION 
344 
5364 : THE INITIALIZE SECTION CONTAINS THE CODING THAT IS PERFORMED 
eee? : AT THE BEGINNING OF EACH PASS. 
5 3; 
330% 03261 BGNINIT 
2398 033618 LSINIT:: 
5371 032612 005037 00324 CLR KEYWD1 sCLEAR USER COMMAND SPECIFIER 
5 4 03 618 005737 903543 TST DCLFLG [CLEAN UP AND EXIT REQUESTED ? 
5373 0326 901403 BEQ INIT1 sBRANCH IF NOT 
$374 032624 005037 010212 CLR DCLFLG ‘CLEAR CLEANUP REQUEST SPECIFIER 
5375 0326 0 DOCLN 360 CLEAN UP 
2 26 032630 104444 TRAP CSDCLN 
§378 032632 012737 177777 010214 INIT1: MOV #-1,RESFLG :SET RESTART FLAG 
5379 032640 READEF #EF.START SIF HERE CAUSE OF START,DO SOME INIT 
5380 032640 012700 000040 MOV MEF .START,RO 
5381 032664 104447 TRAP CSREFG 
ry 032646 BCOMPLETE START 
5383 032646 103417 BCs START 
5384 032650 READEF @#EF RESTART sIF HERE CAUSE OF RESTART, DO SOME INIT 
5385 032650 012700 000037 MOV #EF RESTART,RO 
5386 032654 104447 TRAP CSREFG 
5387 032656 BCOMPLETE RESTRT 
5388 032656 103514 Bcs RESTRI 
5389 032660 READEF #EF .CONTINUE :SEE If WE'RE HERE CAUSE OF A CONTINUE 
5390 032660 012700 000036 MOV #EF CONTINUE ,RO 
5391 032664 104447 TRAP CSREFG 
2392 032666 BNCOMPLE TE $1 :BR IF NOT HERE CAUSE OF CONTINUE 
5393 032666 107006 
5394 032670 0001 033646 JMP ENDIT ;JMP IF HERE CAUSE OF A CONTINUE 
5395 03267 $1: READEF @#EF NEW [SEE IF THIS IS A “NEW PASS’ 
5396 032674 012700 000035 MOV #EF .NEW,RO 
5397 032700 104447 TRAP CSREFG 
5398 03 708 BCOMPLETE NEW :1f YES, BR AROUND LOGUNIT # SETUP 
5399 03270 103982 BCs NEW 
re 032704 000 BR GETPRM 
5402 032706 005037 010214 START: CLR RESFLG ZCLEAR RESTART FLAG SINCE HERE ON START 
40 O3e71¢ BRESET TINIT ENTIRE BUS 
404 712 104433 TRAP CSRESET 
405 032714 005037 010254 CLR CLKVEC SCLEAR CLK VECTOR PTR. AS A FLAG IN 
406 ; NO CLOCK IS FOUND. 
407 032720 012702 010250 MOV @CLKCSR,R2 SSETUP R2 AS A PTR. TO CLOCK INFO BLOCK 
408 032724 CLOCK L,R1 SLOOK FOR A LINE CLOCK 
409 03 724 012700 000114 MOV #°L RO 
410 0327 10446 TRAP C$CLCK 
411 032732 010001 MOV RO,R1 
s18 03 ? om BNCOMPLE TE $2 : If NONE THERE GO LOOK FOR A P=CLOck 
414 8 736 0047 023776 JSR PC .CLKSET : GO SET UP CLOCK INFO TABLE @& CLK VEC. 
5415 082742 012737 100 010260 MOV @LELKEN,CLKEN *SETUP THE ENABLE LINE CLOCK DATA 
5416 032750 000457 BR RESTRI 
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SEQ 153 
CZ2KMSAO KMS11-BD/BE DCLT MACY11 30A(1052) 23-DEC-82 14:01 PAGE 154 
CZKMSA.P11 Lette: 13:54 INITIALIZE SECTION 
5417 
5418 03275 $2: CLOCK PRI ;LOOK FOR A P=CLOCK SINCE NO LINE CLOCK 
5419 0 133 012700 000120 MOV #°P,RO 
24 0 032756 104462 TRAP = C$CLCK 
421 032760 010001 MOV RO,R1 
54 é 0 768 BNCOMPLETE $3 ; IF NONE THERE GO SEE IF THIS IS ‘SI 
5423 032762 103017 BC $3 
5424 032766 004737 023776 JSR PC,CLKSET 7 ELSE GO SET UP CLOCK INFO & VECTOR 
5425 032770 0627 7 960008 019250 ADD #2, CLKCSR ZPOINT CLKCSR TO P=CLK COUNT SET REG. 
34 6 032776 012777 001600 155244 MOV #PCLKCT a@CLKCSR ZLOAD CLK SET REG. WiTH COUNT VALUE 
427 0§ 004 lee? 7 90000¢ 910250 SUB #2,CLK ZPOINT CLKCSR BAC TO P-CLK 
5428 012 012737 00011 1026 MOV #PCLKEN,CLKEN 7SETUP THE ENABLE THE P=CLK DATA 
24 3 033020 000433 BR RESTRT 
5431 0330 $3: READBUS ;READ BUS TYPE TO SEE IF ON AN LSI 
2432 B35 104407 TRAP  C$RDBU 
5433 033024 BNCOMPLE TE 54 3BR IF NOT, NO CHANCE OF A CLOCK 
5434 033024 103021 $4 
5435 033026 012737 000100 010254 MOV #100, CLKVEC ;LOAD 100 AS CLK VECTOR 
5436 0330 005037 010252 CLR CLKBR ;LOAD 0 AS CLK INT. LEVEL 
5437 033040 012737 010260 010250 MOV WCLKEN,CLKCSR ZKLUDGE UP THE CSR & ENABLE DATA LOCS 
5439 033046 104443 TRAP  C$GMAN 
5440 033050 000406 BR 10000$ 
5441 033052 010256 -WORD  CLKHZ 
5442 033054 90005¢ -WORD  TSCODE 
5443 033056 01655 -WORD 5060 
5444 033060 000377 ;WORD 377 
5445 033062 000062 ;WORD TS$LOLIM 
5446 033064 000074 SWORD TS$HILIM 
5447 033066 100008: 
5448 033066 000410 BR RESTRI 
5449 
5450 
5451 033070 $4: PRINTF #BDCLK 
5452 033070 012746 016671 MOV #BDCLK,-(SP) 
5453 033074 012746 000001 MOV #1,-(SP) 
5454 033100 010609 MOV SP,RO 
5455 033102 10441 TRAP = CSPNTF 
5456 033104 062706 000004 ADD #4,SP 
5457 033110 005037 010262 RESTRT: CLR TIMMIN sCLEAR TIME SINCE START LOCATIONS 
5458 033114 005037 010264 CLR TIMSEC 
459 933120 0137 7 010256 010266 MOV CLKHZ, TIMTCK ZLOAD TICKS/SEC 
460 126 0127 é 010300 MOV #EVTLOG,R2 SINIT EVENT TABLE TO ALL 1°S AFTER EACH 
5461 0351 2 01023 01027 MOV R2,EVIPTR 3 START OR RES AND INIT TABLE POINTER 
246¢ 05 1 O12 3 17777 1$: MOV #-1,(R2)¢ 
463 023142 02 é 011334 CMP R2,#EVTEND 7SEE IF REACHED END OF TABLE 
38s 033146 001373 BNE 1$ ‘LOOP UNTIL DONE 
466 033150 NEW: 
3467 033150 012737 177777 010206 MOV #-1,LOGUNT sINITIALIZE LOGICAL UNIT # 
469 033156 005237 010206 GETPRM: INC LOGUNT ;POINT TO NEXT LOGICAL UNIT 
5470 03516¢ 023737 010206 002012 CMP LOGUNT ,LSUNIT [SEE If PAST MAX. LOG. UNIT # 
5471 033170 002367 BGE NEW :BR IF YES, AND START OVER 
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MACY11 30A(1052) 23-DEC-82 14:01 PAGE 155 
INITIALIZE SECTION 
GPHARD LOGUNT,R1 :GET THE P=TABLE FOR THIS LOG. UNIT 
MOV LOGUNT,RO 
TRAP  C$GPHRD 
MOV RO,R1 
BNCOMPLETE GETPRM y1F NO P-TABLE AVAIL., GO GET NEXT ONE 
Bcc GETPRM 
010222 MOV #1, FHDPLX sFULL DUPLEX ONLY 
:DEVICE DEPENDENT PART OF GETTING INFO FROM P=TABLE 
MOV (R1),SELO :STORE AWAY CSR ADDRESSES 
MOV (R1).BSEL1 
mm Ns 
013376 ADD #2 gee5 
MOV (a1) -BSEL3 
013400 ADD #3,BSEL 
MOV (RI), SEL4 
013402 ADD #4, SEL4 
MOV (R1) BSELS 
013404 ADD #5,BSEL5 
MOV (R1),SEL6 
013406 ADD #6, SEL6 
MOV (R1) BSEL7 
013410 ADD #7,BSEL? 
013412 MOV 2(R1), INVEC :STORE AWAY INPUT INTERRUPT VECTOR 
013414 MOV 2(R1) .OUTVEC 
013414 ADD #4, OUTVEC ;BUILD OUTPUT INTERRUPT VECTOR 
013416 MOV 4(R1), INTPRI ‘STORE AWAY INTERRUPT PRIORITY 
013426 MOV 6(R1) .MODCSR :STORE AWAY MODEM CSR (DM11-BA) ADDR 
ZINITIALIZATION CODE = LOAD FIRMWARE INTO KMC-11B 
LDFIRM: CLR 5 :SPECIFY INITIAL CRAM ADDRESS 
MOV #DDCMPS ,R4 :POINT TO KMS FIRMWARE IMAGE 
157776 MOV #RAMO, aSELO :SPECIFY LOAD CRAM 
2$: MOV 5 aSEL4 [WRITE CRAM 
MOV (R4) ,ASEL6 SWRITE IMAGE WORD TO CRAM 
MOV SEL6,R [READ BACK WORD JUST WRITTEN 
CMP (R4)*.R2 [IF WORD READ BACK IS WORD WRITTEN 
BEQ 0$ [THEN CONTINUE LOADING 
SFAILURE LOADING FIRMWARE 
MOV RS, TEMP2 sSAVE CRAM ADDRESS 
010172 MOV -2(R4), TEMP3 § :SAVE WORD LOADED 
MOV MP :SAVE WORD READ BACK 
PRINTF #FIRMLD SPRINT FAILURE MESSAGE 
MOV #F IRMLD,-(SP) 
MOV (SPS 
MOV SP-RO 
TRAP CSPNTF 
ADD #4 SP 
PRINTF #DATAHD ;PRINT HEADER 
MOV #@DATAHD,-(SP) 


SEQ 154 
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SEQ 155 


CZKMSAO KMS11-BD/BE DCLT MACY11 30A(1052) 23-DEC-82 14:01 PAGE 156 
CZKMSA.P11 2 OEE 2 13:54 INITIALIZE SECTION 
5529 033456 012746 000001 MOV #1,-(SP) 
5530 0 23 01060 MOV 
5531 033464 10441 TRAP  CS$PNTF 
55 : 033466 062706 000004 ADD #4,SP 
55 0 7 PRINTF #DATALD,TEMP2,TEMP3,TEMP4 ;PRINT DATA 
5534 033472 013746 010174 MOV TEMP4 ,-(SP) 
5535 0 476 013746 01017 MOV TEMP3,=(SP) 
23 03350 oi 746 01017 MOV TEMP2,-(SP) 
537 0 206 12746 053771 MOV #DATALD, =(SP) 
238 033512 012746 000004 MOV #4,-(SP5 
539 033516 010600 MOV 
$40 033520 104417 TRAP CSPNTF 
5541 0 2¢2 062706 000012 ADD #12,SP 
2348 033526 DOCLN :G0 CLEAN UP 
54 Beeege 104444 TRAP CSDCLN 
5544 033530 BREAK ;ALLOW OPERATION INTERVENTION VIA CTRL/C 
5545 033530 104422 TRAP C$BRK 
eee8 033532 000712 BR LDF IRM sRETRY LOADING FIRMWARE 
5548 
5549 
5550 sCONTINUE LOADING FIRMWARE 
5551 033534 005205 10$: INC R SUPDATE THE CRAM ADDRESS 
2228 033536 022704 053660 CMP #DDCMPE ,R4 s TEST FOR DONE 
e327 033542 001314 BNE 2$ ;LOOP TIL FIRMWARE LOADED 
5555 033544 SETVEC CLKVEC,#CLKINT, #340 ySETUP CLOCK VECTOR 
5556 033544 012746 000340 MOV #340,-(SP) 
5557 033550 012746 024022 MOV #CLKINT,<(SP) 
5558 033554 013746 010254 MOV CLKVEC .~(SP) 
5559 033560 012746 000003 MOV #3,-(SP) 
5560 033564 104437 TRAP C$SVEC 
3561 033566 062706 000010 ADD #10,SP 
$563 ZDEVICE DEPENDENT VECTOR SETUP 
5565 033572 SETVEC INVEC,#DVINS, INTPRI :SETUP INPUT INTERRUPT VECTOR 
5566 033572 013746 013416 MOV INTPRI,-(SP) 
5567 033576 012746 067204 MOV #OVINS,-(SP) 
5568 033602 013746 01341 MOV INVEC ,<(SP) 
5569 033606 012746 00000 MOV #3,-(SP) 
5570 033612 104437 TRAP = C$SVEC 
9371 033614 062706 000010 ADD #10,SP 
278 20 SETVEC OUTVEC,#DVOUTS,INTPRI ;SETUP OUTPUT INTERRUPT VECTOR 
5573 033620 013746 013416 MOV INTPRI,-(SP) 
5574 035624 012746 067214 MOV #DVOUTS ,-(SP) 
5575 03 13746 013414 MOV OUTVEC ,-(SP) 
2576 035634 012746 000003 MOV #3,-(SP) 
577 033640 10443 TRAP = C$SVEC 
$318 033642 062706 000010 ADD #10,SP 
580 
3581 035646 ENDIT: Ape 
582 033646 SETPRI #PRIOO ;SET THE ‘RUN’ PRIORITY TO 0 
238 033646 012700 000000 MOV #PRIOO,RO 
584 033652 104441 TRAP CS$SPRI 
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CZKMSAO_KMS11-BD/BE DCLT MACY11 30A(1052)_ 23=DEC-82 14:01 PAGE 157 
23 bEC-Be 13:54 INITIALIZE SECTION 
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eNLIST BEX 


EXIT 
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654 1088 35 
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5611 ~SBTTL CLEANUP CODING SECTION 
2618 
3 ++ 

5614 : THE CLEANUP CODING SECTION CONTAINS THE CODING THAT IS PERFORMED 

eel? : AFTER THE HARDWARE TESTS HAVE BEEN PERFORMED. 

5617 

5618 054022 BGNCLN 3 

5619 054022 LSCLEAN:: 

4 

632 054022 005737 011512 TST ENRDST 31S READ STATUS ENA Thit 

205 te 43 0014 $ BEQ [NO. OMIT READ DING S Os. 

5624 054030 0047 063704 JSR PC, LNSTAT + READ LINE STAT . 

5625 054034 005237 011516 10$: INC CNTCLN aL Sy aed CLEANUP COUN 

5626 054040 005037 Pitete CLR ENRDST sNEGATE READ D Status OU ABLED 

5627 054044 012737 17777 010134 MOV #-1,CLNSET 3SET THE CLEANUP FLAG 

5628 054052 004737 poate? JSR PC, WLTTRE HALT LINE 

5629 054056 005037 010134 CLR CLNSET CLEAR’ CLEANUP FLAG 

5630 054062 005077 134162 CLR SCLRESR ‘DISABLE CLOCK 
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5634 054070 012700 000340 MOV #PRI07,RO 
203? 054074 104441 TRAP CS$SPRI 
5637 054076 02273 000057 003246 CMP #EXIT,KEYWD1 7"‘EXIT'’ COMMAND? 

rts 054104 001416 BEQ EXITCLN sYES. 

5640 :L0G *C ABORT IN EVENT LOG 

5641 054106 012737 000026 010164 MOV #ABO, TEMP ;LOAD EVENT TYPE 

5642 054114 013737 010116 010174 MOV OPVAR, TEMP4 ‘NUMBER OF Sr tl 

5643 O26 ies 013737 010122 010170 MOV PSCNT, TEMP2 NUMBER OF PASSES 

5644 054130 013737 hat 010172 MOV ERRCNT, TEMP3 ERRORS 

ee? 054136 004737 024534 JSR PC, LOGS ; GO LOG IT 

5647 054142 EXITCLN: 

5648 054142 EXIT CLN =i 

5649 054142 104432 TRAP CSEXIT 
2630 054144 000002 eWORD L10017-. 
565 

565 EVEN 

2628 054146 ENDCLN 

5656 054146 L10017: 


5657 054146 104412 TRAP CSCLEAN 


F 14 


SEQ 174 
CZ7KMSAO ERS 1190/0 psty MACY11 30A(1052) 23-DEC-82 14:01 PAGE 175 
CZKMSA.P11 25-DEC-82 13:54 DROP UNIT SECTION 
5658 -SBTTL DROP UNIT SECTION 
is 
p+4 

5661 : THE DROP-UNIT SECTION CONTAINS THE CODING THAT CAUSES A DEVICE 

2666 ; TO NO LONGER BE TESTED. 

566 3e- 

5664 

5665 054150 BGNDU 

5666 054150 L$du:: 

5667 

5668 

5669 054150 EXIT DU 

5670 054150 000167 «WORD JS$JMP 
207) 054152 000000 «WORD 1L10020-2-. 
567 

5674 EVEN 

5675 

5676 054154 ENDDU 

5677 054615 L10020: 


4 
5678 054154 104453 TRAP C$duU 


CZ7KMSAO ee 
CZKMSA.P11 


G 14 


D/BE LT 5:56 54 MACY11 es | 23-DEC“82 14:01 PAGE 176 


-DEC- 


C UNIT SECTION 


-SBTTL ADD UNIT SECTION 


+4 
; THE ADD-U 


TO THE T 

BGNAU 

XIT 
000167 site 
000000 

-EVEN 

ENDAU 
104452 


; NIT SE 
> TO BE EXECUTED 
: EST CY 


C 
C 


AU 


TION CONTAINS ANY CODE THE PROGRAMMER WISHES 
ie CONJUNCTION WITH THE ADDING OF A UNIT BACK 


LSAU:: 
~ WORD 
WORD 
L10021: 
TRAP 


SEQ 175 


JSJMP 
L10021-2-. 


C$AU 


H 14 


SEQ 176 
CZKMSAO KMS11-BD/BE DCLT MACY11 30A(1052) 23-DEC-82 14:01 PAGE 177 
CZKMSA.P11— 2 OE E=Bo 12:54 TEST 1: SETUP AND MODES OF OPERATION 
5703 “SBITL TEST 1: SETUP AND MODES OF OPERATION 
5705 
5706 p44 
5707 : TEST TO DETECT FAULTS IN THE DATA COMMUNICATION LINK. THIS TEST WILL 
5708 : THE PROVIDE COVERAGE NECESSARY TO DETECT FAILURES IN THE COMPUTER 
2708 : EQUIPMENT, THE COMMUNICATION LINK, OR THE MODEM. 
§711 : 
718 
571 
5714 054164 BGNTST 
5715 054164 Ts: 
5716 
ae SBIT PROGRAM SETUP SECTIO 
ea L N 
5719 hearts: - 
5721 054164 613777 010260 134056 MOV CLKEN,@CLKCSR ;ENABLE THE CLOCK 
2758 054172 GTXRXB: 
5724 054172 005001 GTRA2: CLR R1 
5725 054174 012737 000001 016270 MOV #1, TIMER1 sSET TIMER TO COUNT 1 TICK 
5726 054202 005737 010270 1$: TST TIMER ‘CHECK FOR IT TO BE COUNTED OFF 
5727 054206 001412 BEQ GTRA3 “BRANCH IF CLOCK EXISTS (COUNTED A TICK) 
5728 054210 005301 DEC R1 
5729 054212 001373 BNE 1$ SKEEP CHECKING UNTIL R1 DOES FULL COUNTDWN 
57 054214 PRINTF #NOCLK sPRINT BAD CLK MSG AND WARN OF HANG If TIMEOUT 
5731 054214 012746 016715 MOV #NOCLK,-(SP) 
5732 054220 012746 000091 MOV #1,-(SP) 
5733 054224 010600 MOV SP.RO 
5734 054226 104417 TRAP CSPNTF 
3735 054230 062706 000004 ADD #4,SP 
5737 054234 005737 010214 GTRA3: TST RESFLG sSEE IF HERE AFTER A RESTART 
3738 054240 001124 BNE GTRAS ‘BR IF HERE BECAUSE OF A RESTART 
ros : CLEAR COUNTS AND SET UP DEFAULTS 
5742 054242 005037 010160 GTRAG: CLR TOTCC SCLEAR TOTAL CHAR. COUNT TEMP. LOC 
5743 054246 005037 010076 CLR TTOTCC : CLEAR TOTAL CHAR. COUNT FOR TX BUF F 
5744 054252 005037 010060 CLR CTOTCC : CLEAR TOTAL CHAR. COUNT FOR CMP BUF F 
ort? 954256 012737 006406 010052 MOV #PTRIAB,TXPTR s INIT TRANSMIT MESSAGE POINTER 
5747 054264 905037 910050 CLR RXPTR : ZERO RX POINTER 
3748 054270 012737 006502 010054 MOV #PTRI3,CMPPTR INIT COMP POINTER 
5750 054276 0127 7 000005 01 146 MOV #5,MSGTYP SSET UP DEFAULT MSG TYPE (QUICK FOX - ITEP MSG) 
5751 054304 013737 002136 01015 MOV MSG5C,CURCC ?SET UP DEFAULT CHAR COUNT 
5738 094312 0127 7 003406 01 109 MOV #IXBUF.TCURAD SET UP CURRENT ADD TO START OF TX BUFFER 
5753 054320 012737 004406 01006 MOV #CMPBUF,CCURAD :SET UP CURRENT ADD TO START OF CMP BUFFER 
epee 054326 013737 10100 010156 MOV TCURAD.CURADD  ;SETUP CURRENT ADDR TO START OF TXBUF 
5756 054336 013737 010052 010154 MOV TXPTR,CPTR ‘SETUP CURRENT POINTER TABLE POINTER FOR TXBUF 
5757 054 342 004757 02752 JSR PC ,BLOBUF : GO BUILD POINTER TABLE AND BUFFER 
5758 0543466 012737 000001 010074 MOV #1 TXMTOT ‘BUMP TOTAL MESSAGE COUNT 


CZKMSAO ee 


CZKMSA.P11 
5759 
5760 054354 
5761 05436 
5762 05437 
5763 054376 
5764 054404 
5765 054410 
5766 054416 
5767 Enel: 
5768 054450 
5769 054436 
5770 
5771 054444 
5772 054452 
$773 
5774 054456 
5775 054462 
9776 054464 
5777 054470 
5778 
5779 054472 
5780 054472 
5781 054476 
rh 054502 
5783 054504 
5784 054506 
5785 054512 
5786 054512 
5787 054520 
5788 054526 
5789 0545 
5790 054542 
5791 
2236 054546 
5793 054546 
5794 054550 
5795 054550 
5796 054552 
5797 054556 
5798 054560 
5799 054560 
5800 054562 
5801 936 36% 
5802 054572 
5803 


D/BE 
25-DEC- 


Cooooooo 
ow Oo 
> pp 
SANS 
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WwNrON NN NNONN 
Fenner NN NGS 
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Nene Ww 


ooooo 


001002 
104432 


012737 
000137 


St 3:54 


OnMVvidnw 
Ooouns 


-—OoOovoo-— 
ow NOW 


oo COOOOOOOCOO 
woe oo 


000001 


010226 


000001 
060174 


MACY11 30A(1052) 


010220 


1$: 


GTRAS: 


1$: 


1 14 


23-DEC-82 14:01 
PROGRAM SETUP SECTION 


MOV CMPPTR,CPTR 
MOV CCURAD Cy CURADD 
MOV 

MOV meése. CURCE 
JSR PC ,BLOBUF 
MOV #1.CMPTOT 
MOV ant MODTYP 
CLR LTtve 

MOV ai RPASS 
MOV #2. PARAM 
MOV #KTRB,KEYWD1 
JSR PC ,ACTKAL 

MOV #BDLBAS ,R2 
CLR R2)+ 

CMP R2, #BDLEND 
BNE 1$ 

PRINTF #HLPO 

MOV MODTYP,DEV1 
MOV MLTYP, DEV 
MOV RPASS .DEV 
MOV PARAM, DEV 
JSR PC, SHWOP 
MANUAL 

BCOMPLETE GETCL 
1ST RPASS 

BNE 1$ 

EXIT ST 

MOV #TTL.MLTYP 
JMP GTRO 


PAGE 178 


SET UP START OF COMPARE POINTER TABLE 

SET UP CURRENT ADDR. TO START OF CMPBUF 

;PUT DEFAULT MESSAGE we CMPBUF 

;BUMP THE COMP MESG COU 

3SET H+ Hae MODE= ACT IVE 

SET DEFA ay pest gh0h oe a =NONE 

3SET UP DEFAULT ‘RUN _P COUNT 

;SET UP PROG. PARA METERS. ° one CHECKING ENABLD 
iSeT UP REVW STATUS MSGS. PRINT OFF 


KEYWRD. 
sINIT LINE LIST 
INIT MSG BUFFER DESCRIPT LIST 


7@ 


MOV #HLPO,-(SP) 
MOV #1,-(SP) 
MOV SP,RO . 
TRAP =, CSPNTF © 
ADD <4 ,SP 
PRINT TO OPERATOR THE CURRENT MODE...... 
SEE IF MANUAL INTERVENTION ALLOWED 
CSMANI 
; BR IF YES (UAM=0 AND NOT CHAINED) 
GETCL 


: SEE IF THIS IS FIRST seit PASS" 
; BR IF NOT COMPLETED 1 PASS 
; IF DONE 1 PASS IN UNATTENDED + - EX 


7SET UP DEFAULT FOR UNATTEN nose MODE 
> "'R M=ACT/LO=1/PAS=1/NOST/CH'’ AND RUN 


SEQ 177 


- 


J 14 


SEQ 178 
CZKMSAQ KMS11>B0/BE CLT MACY11 30A(1052) 23=DEC-82. 14:01 PAGE 179 
CZKMSA.P11 23-DEC-B2 13:54 COMMAND LINE FETCH & INTERPRETATION SECTION 
5804 .SBTTL COMMAND LINE FETCH & INTERPRETATION SECTION 
$806 054576 105037 003401 GETCL: CLRB PSGDBD CLEAR CMD LINE PARSING ERROR FLAGS 
$807 054602 105037 003400 CLRB —- PSNNUF 
5808 054606 GMANID CLISPM,CMDBUF.A,377,1,72.,.NO | ;GET A COMMAND LINE FROM OPR. 
5809 054606 104443 TRAP C$GMAN 
5810 054610 000406 10000$ 
5811 054612 003124 “WORD  CMDBUF 
81g 094616 0014 “0 TSCODE 
5813 054616 01400 "wo CLISPR 
5014 y2e0s8 0037 «WORD 3 
5815 054622 000001 “WORD © TSLOLIM 
5816 054624 000110 "WORD TSHILIM 
5817 054626 10000S: 
S818 054626 012737 005124 003364 mov #CMDBUF ,PSBUFA 
8819 054686 219787 011520 003366 MOV #CLITRE .PSTREE 
5820 05464 127 7 055540 003370 MOV —s- ACLACT PSACT 
5821 054650 005037 005250 CLR QUALFG SCLEAR QUALIFIER FLAG LOCATION 
anse 054654 004737 031506 JSR PC, PSTRV :G0 PARSE COMMAND LINE 
5823 054660 105737 003401 1818 © PSGDBD SEE IF PARSED OK OR AN ERROR 
5854 054664 001412 BEQ 1$ 
5825 054666 PRINTF #CLIERM 
5826 054666 012746 014010 MOV #CLIERM,-(SP) 
$827 054672 012746 000001 Movs #1. = (SP 
5828 054676 010600 MOV SP<R 
5859 054700 104417 TRAP —CSPNTF 
5830 054702 062706 000004 ADD #4 ,SP 
5831 054706 00137 054576 yMP CGE 
9832 054671 105737 003400 1$: TSTB —- PSNNUF SEE IF INCOMPLETE COMMAND TYPED 
SB3$ 054716 001412 BEO 10$ 
5834 054720 PRINTF #CLINUF 
5835 054720 012746 014040 mov #CLINUF ,-(SP) 
5836 054724 012746 000001 Mov #1.-(SP5 
$837 054780 010600 MoV SP-RO 
5838 054732 104417 TRAP CSPNTF 
5839 054734 062706 000004 ADD #4 ,SP 
5840 054740 000157 054 76 JMP CGT 
2B) 054744 023727 003246 000060 10S: CMP _—sKEYwD1#SETET sWAS "SET E=T" ENTERED ? 
$843 054752 001711 BEQ GETCL :YES,BRANCH 
$844 054754 023727 003246 000004 CMP ss KEYWO1, #RUN SEE IF RUN WAS TYPED 
5845 054762 001002 BNE 11$ : BR IF N 
5846 054764 OO0137 60174 JMP ss GTRO : START EXEC. IF YES 
884? 054770 023727 003246 000052 11$: CMP  KEYWD1,#DMPS 18 17 CUMP 
5848 054776 001 BNE 
5849 055000 004737 027264 JSR «PC, DUMPSR :G0 TO DUMPSR 
$850 055004 137 054576 MP L AND GO BACK 
8851 055010 023727 003246 000057 14$: CMP § KEYWO1,#EXIT 1S 17 Exit 
5852 095016 001005 BNE 40$ BRANCH IF NOT 
B53 055020 012737 177777 010212 MOV —s- @=1 ,DCLFLG SET DO CLEAN FLAG 
5854 095026 EXIT TST 
5855 055026 104432 TRAP CSEXII 
5856 0550 or2i74 “WORD L 10022. 
857 055032 028727 003246 000010 408: (MP KE VWD1,#SETEXP SEE IF SET EXPECTED 
858 0550460 001001 BNE é "BR IF YES (A SETEXP WAS TYPED 
859 055042 000522 BR 2$ 


K 14 


Q@ 179 
CZKMSAO KMS11580/BE CLT MACY11 30A(1052) 23-DEC-82 14:01 PAGE 180 vs 
CZKMSA.P11 23-DEC-B82 13:56 COMMAND LINE FETCH & INTERPRETATION SECTION 

5860 055044 023727 0032466 000011 4$: CMP KEYWD1,#SETTRN sSEE IF SET TX 

5861 R328es 0 1069 BEO ef : BR IF YES 

286 055054 000137 054576 JMP GETCL 

5864 955060 013737 010076 010160 5$: MOV TTOTCC, TOTCC 

5865 55066 023727 010160 001000 CMP TOTCC,#BUFLIM sSEE IF BUFFER ALREADY FULL 

5866 055074 002414 BLT ; BR IF NOT FULL (BUFLIM # OF CHARS.) 

5867 055076 PRINTF #MSGTRN,#BUFEX : ELSE TELL OPR. AND DON'T BUILD MSG. 

5868 055076 012746 01703 MOV #BUFEX,-(SP) 

5869 055102 012746 017054 MOV #MSGTRN, <(SP) 

2870 059106 91 746 000002 MOV #2,-(SP) 

871 05511 1040 MOV SP._R 

$872 055114 10441 TRAP  CSPNTF 

5873 055116 062706 000006 ADD #6,SP 

5874 055122 900137 054576 JMP GETCL : THEN GO GET A NEW COMMAND 

5875 055126 005737 010076 15$: TS? TTOTCC sIF FIRST ‘SET’’ THEN GET RID OF DEFAULT 
876 055132 001002 BNE 6$ 
877 055134 005037 010074 CLR TXMTOT 

5878 055140 Ht 1A 006406 010052 6$: MOV #PTRTAB,TXPTR 3GET POSITION OF END OF TX LIST 

5879 055146 013701 010074 MOV TXMTOT,R1 

$880 055152 020127 000017 CMP R1,#MSGLIM :SEE IF MSG COUNT EXCEEDED. 

5881 055156 002414 BLT 1 : BR IF NO 

5882 055160 PRINTF #MSGTRN,#TABEX : ELSE TELL OPR. AND DON'T BUILD MSG. 

5883 055160 012746 016776 MOV #TABEX,<(SP) 

5884 055164 Ogre 017054 MOV #MSGTRN,-(SP) 

5885 055170 012746 000002 MOV #2,-(SP) 

5886 055174 010600 MOV SP,RO 

5887 055176 104417 TRAP  CSPNTF 

5888 055200 062706 000006 ADD #6,SP 

5889 055204 000137 054576 JMP GETCL ; THEN GO GET A NEW COMMAND. 

5890 055210 006301 17$: ASL R1 ‘# OF MSGS *4 = NEXT FREE PTR BLOCK 
891 055212 906501 ASL R1 
892 055214 060137 910052 ADD R1,TXPTR 

589 055220 013737 01005 010154 MOV TXPTR,CPTR sSETUP CHAR. COUNT, CURRENT ADDR, & PTR 

5894 099206 013737 010100 010156 MOV TCURAD, CURADD 

5895 0552 004737 oe ress JSR PC ,ADDCC :ADD IN CHAR. COUNT AND CHECK TOTAL 

5896 055240 004737 027520 JSR PC ,BLOBUF [GO BUILD MESSAGE IN BUFFER AND PTRS. 

5897 055244 004737 027644 JSR PC. FCURAD ‘MAKE SURE ADDRESS IS WORD BOUNDARY 

5898 055250 013737 010154 010052 MOV CPTR, TXPTR 

5899 055256 013737 010160 010076 MOV TOTCC, TIOTCC sUPDATE CHAR. COUNT, CURR ADDR, & PTR 

2900 099266 013737 010156 010100 MOV CURADD, TCURAD 
901 055272 003¢37 010074 INC TXMTOT 

590 095¢76 005337 003252 DEC QUALVL :DEC THE COPY COUNT 

290 055302 001266 BNE 

2904 055304 000137 054576 JMP GETCL 

5906 055310 013737 010060 010160 2$: MOV CTOTCC, TOTCC sSETUP CHAR. COUNT, CURR. ADDR. & PIR 

5907 055316 023727 010160 001000 CMP TOTCC ,#BUFLIM sSEE IF BUFFER ALREADY FULL 

5908 O2236¢ 002414 BLT 1 : BR IF NOT FULL (BUFLIM @ OF CHARS.) 

5909 055326 PRINTF #MSGTRN,#BUFEX : ELSE TELL OPR. AND DON'T BUILD MSG. 

5910 095526 012746 017036 MOV #BUFEX,-(SP) 
911 055332 012746 017054 MOV #MSGIRN,-(SP) 
gi@ 055336 012746 000002 MOV #2,-<SP) 

91 099 2 0106 MOV SP,RO 

5914 55344 10441 TRAP CSPNTF 

5915 055346 062706 000006 ADD #6,SP 


L 14 


SEQ 180 
CZKMSAO KMS11=80/BE cut MACY11 30A(1052) 23=DEC-82 14:01 PAGE 181 
CZKMSA.P11 23=DEC-82 13:54 COMMAND LINE FETCH & INTERPRETATION SECTION 

5916 055352 000137 054576 JMP ETCL ; THEN G9 GET A NEW COMMAND 

5917 055 36 Mite Mitte 16$: TST TOTCC TIF FIRST "'SET’ THEN GET RID OF DEFAULT 
5918 05536 90100¢ BNE 

2919 09> 4 005037 010056 ws CLR CMPTOT 

235) B2eeee Ore e ae 006502 010054 MOV #PTR13,CMPPTR s INIT COMPARE MESSAGE POINTER 

2988 055376 013701 010056 MOV CMPTOT.R1 

5924 055402 020127 000017 CMP R1,#MSGLIM :SEE If MSG COUNT EXCEEDED. 

5925 055406 002414 BLT : BR IF N 

5926 055410 PRINTF #MSGTRN,#TABEX : ELSE TELL OPR. AND DON'T BUILD MSG. 
5927 055410 012746 016776 MOV #TABEX,-(SP) 
5928 055414 012746 017054 MOV #MSGTRN, =(SP) 
5929 055420 012746 000002 MOV #2,-(SP) 
5930 055424 010600 MOV P-RO 
5931 055426 104417 TRAP  CSPNTF 
5932 055430 062706 000006 ADD #6,SP 
5933 055434 000137 054576 JMP GETCL : THEN GO GET A NEW COMMAND. 

5934 055440 006301 18$: ASL R1 74 OF MSGS *4 = NEXT FREE PTR BLOCK 
5935 055442 006301 ASL R1 

5936 055444 060137 010054 ADD R1,CMPPT 

5937 055450 013737 010054 010154 MOV CMPPTR,CPTR 

5938 055456 013737 010062 016156 MOV CCURAD, CURADD 

5939 055464 004737 027422 JSR PC ,ADDCC ;ADD IN XHAR. COUNT AND CHECK TOTAL 

5940 055470 004737 027520 JSR PC ,BLDBUF 

5941 055474 006737 027644 JSR PC,FCURAD sMAKE SURE ADDRESS !S WORD BOUNDARY 
942 055500 013737 010154 010054 MOV CPTR, CMPPTR 

5943 055506 605237 010056 INC CMPTOT 

5944 055512 013737 010156 010062 MOV CURADD , CCURAD sUPDATE CHAR. COUNT, CURR ADDR. & PTR 
5945 055520 013737 010160 010060 MOV TOTCC,CTOTCC 

5946 055526 005337 003252 DEC QUALVL s1F COPY WAS GIVEN, PUT MSG IN BUFF 
5947 055532 001266 BNE : AGAIN ' 

3948 055534 000137 054576 JMP GETCL [GO BACK UNTIL GET A ‘RUN’ 

5950 

5951 

5952 


M14 


SEQ 181 
CZKMSAO KMS11=BD/BE DCLT MACY11 30A(1052) ongatec 82 14:01 PAGE 182 
CZKMSA.P11 =. 23-DEC-B2 13:54 D LINE FETCH & INTERPRETATION SECTION 
5954 
5955 .SBTTL ACTION TABLE AND ROUTIN ES Z 
5956 ; USER MUST CLEAR/SET P$GDBD IF USE "'CLIBIF’’ IN CONNECTION WITH ACTION 
5957 : R2 WILL HOLD ACTION CODE FROM PARSING (CLI) NODE 
2926 §22278 006302 CLIACT: ASL R {MULTIPLY ACTION CODE BY 2 
5960 055542 01620 055556 MOV R3scr2) .R2 OFFSET VALUE 
5961 055546 062702 055556 ADD #10$,R2 ADD BASE tT ALUE 
296¢ 055552 00471 JSR PC, (R2) :GO0 DO ACTION 
3963 055554 000207 RTS PC SRETURN TO TRVACT: 
5965 sBRIEF DESCRIPTION OF ACTIONS TAKEN 
5966 055556 000162 10$: .WORD ACTNUL-10$ SNULL 
5967 055560 000164 SWORD ACTCLR=10$ [CLEAR 
5968 055562 000174 “WORD ACTSHO=10$ > SHOW 
5969 055564 001562 ow ACTCHK=10$ : CHECK 
5970 055566 000274 ; ACTRUN-10$ RUN 
5971 055570 000204 “WORD ACTHLP=10$ *HELP 
5972 055572 000320 sw ACTCSE-10$ SCLEAR OR SHOW EXPECTED 
5973 055574 000412 : ACTCST-10$ 'CLEAR OR SHOW TRANSMIT 
5974 055576 000734 “WORD ACTSTE=10$ [SET EXPECT ED. 
5975 055600 000744 sw ACTSTT=-10$ ?SET TRANSMIT 
5976 055602 000762 “WORD ACTSZE-10$ SIZE 
5977 055604 000772 “WORD ACTCOP-10$ COPY 
5978 055606 001002 “WORD ACTNUM=10$ “NUMERIC VALUE FOR SIZE OR COPY 
5979 055610 001074 “WORD ACTOPM=10$ SQUOTED MESSAGE FROM USER 
5980 055612 001570 “WORD ACTSTS=-10$ ?STATU 
5981 055614 001114 “WORD ACTEQO=10$ SEND OF QUOTED MESSAGE FROM USER 
5982 055616 001174 “WORD ACTMSO-10$ [ONES DATA 
598 955620 001202 ’ ACTMS1-10$ SZEROS DATA 
5984 055622 001212 : ACTMS2-10$ ?1AL 
5985 055624 001 22¢ WORD ACTMS3-10$ SOACT 
5986 059626 001232 WORD ACTMS4-10$ S ITEP 
5987 055630 001242 "WORD  ACTMS5-10$ SCCITT 
5988 055632 001260 "WORD ACTMS6-10$ S ALPHA 
5989 055634 001346 sW ACTATV-10$ SACTIVE MODE 
5990 055636 001356 “WORD ACTPAS-10$ SPASSIVE MODE 
5991 095640 001376 "WORD ACTREC-10$ SRECEIVE MODE 
5992 055642 001404 y ACTLIS-10$ SLISTEN MODE 
5993 055644 001414 ; ACTDLL=10$ ‘DOWNLINE LOAD 
5994 055646 001424 a ACTTRA-10$ : TRANSMIT MODE 
5995 055650 001434 ‘ ACTTAL=10$ TALK 
5996 099652 001462 “WORD CTNO= 108 :/NO 
5997 055654 0014 : ACTECH-10$ [ECHO 
5998 055656 001576 “WORD ACTCRC-10$ :SET CRC BIT 
5999 055660 001612 ; ACTPRO-10$ [SET PROTOCOL BIT 
6000 055662 001644 aT ACTRPS-10$ STAT 
6001 055664 001654 ; ACTMOP=10$ SREMOTE STATION IN MAINTENACE LOOP MODE 
6002 055666 001664 < ACTTILP-10$ + INTERNAL 
6003 055670 001674 : ACTCLP-10$ : 
6004 055672 001704 : ACTLLP-10$ [LOCAL M 
6005 055674 001714 : ACTRLP=10$ SREMOTE MODEM LOOP 
6006 055676 154 2 ACTNUF =10$ MORE COMMAND LINE NEEDED 
6007 055700 001152 : ACTBCR-10$ :BAD CHARACTER IN OPERATOR MESSAGE 
6008 055702 000670 - ACTDMS-10$ [DUMP MEMORY START ADDRESS 
6009 055704 000720 " ACTDME-10$ :DUMP MEMORY END ADDRESS 


SEQ 182 
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SEQ 183 
CZ7KMSAO KMS11580/BE peut MACY11 30A(1052) 23-DEC-82 14:01 PAGE 184 
CZKMSA.P11  23-DEC “Bo 13:54 ACTION TABLE AND ROUTINES 
6021 
60 “ 05575 1 737 177777 003400 ACTNUF: MOVB #-1,PSNNUF sSET FLAG TO SAY NEED MORE OF COMMAND 
60 ; 749 000207 ACTNUL: RTS PC SRETURN TO PARSER 
6025 05574 012737 000001 003246 ACTCLR: MOV #CLEAR,KEYWD1 ;SET LOC TO SAY A CLEAR WAS TYPED 
60 $ 5575 207 RTS PC 
6028 055752 012737 000002 003246 ACTSHO: MOV #SHOW,KEYWD1 ;SET LOC. TO SAY A SHOW WAS TYPED 
60 3 055760 000207 RTS PC 
6031 055762 012702 003254 ACTHLP: MOV #HLPTAB,R2 sSETUP R2 AS A POINTER TO HELP MSG TABLE 
60 : 55766 1$: PRINTF #HLPF,(R2)+ ‘PRINT HELP INFORMATION MESSAGES 
6033 055766 01 346 MOV (R2)+,<(SP) 
6034 055770 012746 014616 MOV #HLPF<(SP) 
6035 055774 012746 000002 MOV #2,°(5P) 
6036 056000 010600 MOV SP,RO 
ooe, Becone 063706 000006 iso be .sP° 
6039 056010 030227 003276 CMP R2,#HLPEND :SEE IF ALL INFO PRINTED YET 
6040 056014 001 64 BNE ‘IF NO KEEP PRINTING 
6041 056016 0127 , 000005 003246 MOV #HLP.KEYWD1 *SET LOC. TO SAY A HELP WAS TYPED 
Fark peense MEET 000057 003246 ACTEXT: MOV WEXIT,KEYWD1 
6044 056034 900207 RTS PC sSET UP KEYWORD AND SCOOT OUT OF HERE 
6045 056036 012737 000055 003246 ACTPRT: MOV #PRNT,KEYWD1 :SET LOC. TO SAY A HELP WAS TYPE 
6046 056044 004737 024644 JSR PC, REPORT [CALL ROUTINE TO PRINT EVENT LOG AND BASE TABLE 
6067 056050 000207 RTS 
6049 056052 012737 000004 003246 ACTRUN: MOV #RUN, KEYWD1 sSET RUN FLAG 
6050 056060 112737 177777 003400 MOVB = #=1,PSNNUF SET FLAG TO SAY NEED MORE OF COMMAND 
6051 056066 012737 000001 010226 MOV #1, RPASS ?SET DEFAULT RUN "PASS" TO 1 
605¢ 056074 000207 RTS PC 
6054 056076 012737 006502 010054 ACTCSE: MOV #PTR13,CMPPTR ;INIT COMPARE MESSAGE POINTER 
6055 056104 013701 010054 MOV CMPPTR.R1 
6057 056110 013702 010056 MOV CMPTOT,R2 
6058 056114 105037 003400 CLRB  —« PSNNUF sFLAG THAT HAVE VALID COMMAND AT THIS PT. 
6059 056120 025727 003246 000002 CMP KEYWD1,#SHOW  :SEE IF A CLEAR OR SHOW WAS TYPED 
6060 056126 001471 BEQ ACTSHW :BR IF A SHOW WAS TYPED 
6061 056130 Q12737 000001 010056 MOV #1, CMPTOT “CLEAR COMPARE MESSAGE COUNT, CHAR. COUNT 
606¢ 056136 005037 010060 CLR CTOTCC : AND RESET POINTER 
6064 056142 012737 006502 010054 MOV #PTRI3,CMPPTR ;INIT COMPARE MESSAGE POINTER 
6065 056150 013737 610054 010154 MOV CMPPTR.CP ?SET UP TO FILL IN DEFAULT MESSAGE 
6066 056156 012701 00440 MOV #CMPBUF ,R1 
6067 05616 o101 7 01006 MOV R71, CCURAD 
6068 056166 000431 BR ACTCLB 
$090 56170 912701 06406 ACTCST: MOV #PTRTAB,R1 
6071 056174 0137 3 10074 MOV TXMTOT,R2 
607¢ 056200 1050 03400 CLRB  —« PSNNUF sFLAG THAT HAVE VALID COMMAND AT THIS PT. 
6073 056204 023727 003246 000002 CMP KEYWD1,#SHOW  :SEE IF A CLEAR OR SHOW WAS TYPED 
6074 056212 001437 BEQ ACTSHW ‘BR IF A SHOW WAS TYPED 
6075 056214 127 7 000001 010074 MOV #1, TXMTOT [CLEAR TRANSMIT MESSAGE COUNT, CHAR. COUNT 
6076 056222 005037 010076 CLR TTOTCC : AND RESET POINTER 


¢ 15 


SEQ 184 
CZKMSAO KMS11-BD/BE DCLT MACY11 30A(1052) 23-DEC-82 14:01 PAGE 185 
CZKMSA.P11 eta 13:54 ACTION TABLE AND ROUTINES 
6077 056226 012737 006406 010052 MOV #PTRTAB, TXPTR 
6078 056 6 13737 010082 + 154 MOV TXPTR,CPTR 
6079 056242 01 701 03406 MOV #TxBuf ,R1 
6080 056246 010137 010100 MOV R1, TCURAD 
6082 056252 0127 3 91000 ACTCLB: MOV #BUFLIM,R2 
608 096 56 0101 10156 MOV R1, CURADD sSET UP TO PUT DEFAULT MSG IN LIST AFTER 033°S 
6084 056 6 12737 000005 010146 MOV #5 .MSGTYP 
6085 056 13737 002156 010150 MOV MSG5C, CURCC 
6086 056276 10 1 1$: CLRB (R1)¢ sFILL EXPT OR TRAN BUFFER WITH 0O°S IF A CLEAR 
6087 096 00 005 2 DEC R [D0 'BUFLIM’’ NUMBER OF BYTE LOCATIONS 
6088 056302 001 BNE 1 
6089 056304 004737 027520 JSR PC ,BLOBUF 7""CLEAR’’ REALLY MEANS TO PUT DEFAULT MSG IN 
6090 056310 000207 RTS PC SWHEN DONE, RETURN TO PARSER 
609 
609 056312 012705 003324 ACTSHW: MOV #SHTAB,RS 
6094 056316 122571 000000 5$: CMPB Ss (RS)) +, @(R1) ;LOOK AT FIRST BYTE OF MSG TO DECIPHER TYPE 
5 056322 001404 BEQ 64 
6096 056524 020527 003333 CMP R5,#SHTEND ;SEE If LOOKED AT ALL OF DEFAULTS YET 
6097 056330 00157e BNE 5$ 
6098 05633¢ 00520 INC R5 sMUST BE OPR. SPEC'D THEN 
6099 0965 4 162705 003325 6$: SUB #SHTAB+1,R5 
6100 056340 906505 ASL R5 
6101 056342 016137 000002 010164 MOV 2(R1), TEMP 
610 056350 PRINTF #SHMSG, SHTYTB(RS), TEMP sPRINT MSG SIZE & TYPE 
6103 056350 013746 010164 MOV TEMP, -(SP) 
6104 056354 016546 003304 MOV SHTYTB(RS) ,<(SP) 
6105 056360 1 746 015664 MOV #SHMSG, -(SP) 
6106 056364 012746 000003 MOV #3,-(SP) 
6107 056370 010600 MOV SP.R 
6108 056372 104417 TRAP —«- CSPNTF 
6109 056374 062706 000010 ADD #10,SP 
6110 056400 062701 000004 ADD #4,R1 :BUMP R1 TO NEXT SET OF POINTERS 
6111 056404 005302 DEC R2 
611g 056406 001341 BNE ACTSHW 
6113 056410 013737 010216 011470 MOV MODTYP,DEV1 
6114 056616 013737 010220 011472 MOV MLTYP,DEV 
6115 056404 013737 010226 011474 MOV RPASS , DEV 
6116 056632 013737 010224 011476 MOV PARAM, DEV4 
6117 056440 004737 031204 JSR PC, SHWOP :SHOW THE OPERATOR THE CURRENT MODE.....- ALSO 
6118 056444 000207 RTS PC 
6120 056466 013737 003374 010126 ACTOMS: MOV PSNUM, STADD sSETUP STARTING ADDRESS FOR DUMP 
6121 056454 005037 010132 CLR BYTBIT *SET DEFAULT OF WORD DUMP 
61 : 056460 012737 000052 003246 MOV #OMPS,KEYWD1 § :FLAG THAT A DUMP WAS TYPED 
61 ; 056466 000403 BR ACTDME 
6125 056470 1 737 177777 010132 ACTDMQ: MOV #-1,BYTBIT :SET DUMP FLAG TO “DUMP-WORD’’ 3 
6126 056676 013737 003374 010130 ACTDME: MOV PSNUM, ENADD SETUP END ADDRESS FOR DUMP (=START IF NO "EEE 
612 056504 105037 003400 ACTDMX: CLRB - PSNNUF “CLEAR NOT-ENOUGH FLAG, "DUMP N-N/B"’ IS VALID 
6128 056510 000207 RTS PC 
6129 
erat 
6132 056512 012737 000010 003246 ACTSTE: MOV #SETEXP,KEYWD1 


CZKMSAO_KMS11-BD/BE 


CZKMSA.P11 25-DEC- 
2 ; 056520 000403 
6135 0565 3 3 eis 
61 0565 12737 
2 ‘ 0565 000207 
6139 056540 012737 
oid 056546 000207 
o1e¢ 056550 012737 
ott7 056556 000207 
6145 056560 023727 
6146 056566 0010 ; 
6147 056570 0057 
6148 056574 001014 
6149 056576 
6150 056576 012746 
6151 056602 012746 
O13¢ 056606 010600 
6153 056610 104417 
6154 056612 062706 
6155 056616 112737 
6156 056624 000411 
6157 056626 013737 
6158 056634 000405 
6159 056636 013737 
6160 056644 005257 
abe. 056650 000522 
6163 056652 012737 
6164 056660 010437 
6165 056664 005237 
poh 056670 000207 
6168 056672 010605 
6169 056674 16 Ns 
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6174 056720 112125 
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6177 056726 000473 
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6179 056730 
6180 056730 one rte 
6181 056734 012746 
6182 056740 010600 
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6184 056744 062706 
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ACTSZE: 


ACTCOP: 


ACTNUM: 


3$: 
1$: 
2s: 


ACTOPM: 


ACTEQO: 


1$: 


ACTBCR: 


ACTMSO: 


D 15 


23-DEC-82) 14:01 
ACTION TABLE AND ROUTINES 


PRINTF 


RTS 


CLR 
BR 


ACTSTX 


#SETTRN,KEYWD1 
VL 


#71 ,QUAL 
PC 


#SIZE ,QUALFG 
PC 


#QCOPY ,QUALFG 
PC 


 talandanen 
PSNUM 
#LLISEO 


#-1,P$GDb0 
P$NUM,CURCC 
PSNUM ,QUALVL 
QUALVL 
ACTMEX 

#7 ,.MSGTYP 
R4, TEMP 

TEMP 
PC 


TEMP,R1 
#OPBUF ,R5S 
Se aa 


1 
ACTMEX 
#CLIBCR 


PAGE 186 


:SET UP DEFAULT COPY TO 1 (/COPY 


sSEE IF A SIZE OR COPY TYPED 

3;BR IF IT WAS A COPY 

CHECK TO BE SURE DIDN'T TRY SIZ 
; BR IF NO 


3SET ERROR-IN-CMD FLAG 


z1F A SIZE LOAD CURCC WITH BYTE COUNT 


:1F A COPY, LOAD COPY COUNT 


INCREMENT SO FIRST DEC MAKES IT REAL # 


:KEEP TRACK OF START OF QUOTED T 


=0) 


E=0 


EXT 


: SO CAN CALC OPCNT AT END OF QUOTES 


CALC BYTE COUNT FOR QUOTED TEXT 


COPY QUOTED TEXT TO OPBUF 


BAD CHAR, IN OPR. QUOTED STRING 
MOV 


MOV 
MOV 
TRAP 
ADD 


#CLIS 
#1,-( 
SP,RO 
CSPNTF 
#4,SP 


SP,RO 
CSPNIF 
#4 ,SP 


+ her 1 ae 


=(S 


SEQ 185 


E 15 


SEQ 186 
CZKMSAO KMS11-BD/BE DCLT MACY11 30A(1052) 23-DEC-82 14:01 PAGE 187 
CZKMSA.P11 ete 13:54 ACTION TABLE AND ROUTINES 
6189 056760 012737 000001 010146 ACTMS1: MOV #1, MSGTYP 
fi 096766 00431 BR actin 
6191 0567 \e7 7 000002 010146 ACTMS2: MOV #2, MSGTYP 
619 056776 004 3 BR aC ME 
6193 057000 012737 000003 010146 ACTMS3: MOV #3, MSGTYP 
6194 997006 00421 BR ACTME1 
6195 057010 012737 000004 010146 ACTMS4: MOV #4 ,MSGTYP 
6196 057016 900415 BR ACTME1 
6197 057020 O75 000005 010146 ACTMSS: MOV #5 .MSGTYP 
6198 057026 013737 002156 010150 MOV MSG5C, CURCC sSETUP DEFAULT SIZE FOR THIS TYPE 
6199 057034 000430 BR ACTMEX 
6200 057036 Oe? 7 000006 010146 ACTMS6: MOV #6, MSGTYP 
6201 057044 013737 002160 010150 MOV MSG6C,CURCC sSETUP DEFAULT SIZE FOR THIS TYPE 
$508 057052 012737 000100 010150 ACTME1: MOV #64. ,CURCC sSETUP DEFAULT SIZE FOR MSGO=4 
6204 057060 000416 BR ACTMEX EXIT 
6206 
6207 057062 022737 000010 003246 ACTSEX: CMP #SETEXP,KEYWD1 sDID WE GET HERE FROM "SET E =" COMMAND? 
6208 057070 001404 BEQ YES BRANCH 
6209 057072 112737 177777 003401 MOVB #1, PSGDBD [SET ERROR FLAG 
6210 057100 000406 BR ACTMEX :GO TO EXIT 
6211 057102 004737 027672 10$: JSR PC, FACSIMILE 3GO0 COPY TRANMIT BUFFER TO EXPECT BUFFER 
6212 057106 012737 000060 003246 MOV #SETET,KEYWD1 ‘SET FLAG TO BE USED IN T1:: 
ost? 057114 000400 BR ACTMEX 3G0 TO EXIT 
ae 
6217 057116 105037 003400 ACTMEX: CLRB PSNNUF sCLEAR NOT-ENOUGH FLAG 
6218 057122 000207 RTS PC 


F 15 


Q 187 

CZ7KMSAO KMstt; D/BE cu MACY11 30A(1052) 23-DEC-82. 14:01 PAGE 188 . 
CZKMSA.P11 23-DEC-B82 13:54 ACTION TABLE AND ROUTINES 

6220 057124 012737 000003 010216 ACTATV: MOV #ACT .MODTYP 

€ ; §22185 00 13 BR ACTMSx 

6228 057136 012737 000002 010216 ACTPAS: MOV #PAS ,MODTYP 

6 3h 057142 O86 ? ieaitd CLRB = PSNNUF sCLEAR NOT-ENOUGH FLAG 

6225 057146 005037 010220 CLR MLTYP *CLEAR MAINT LOOP TYPE 

6226 057152 000207 RTS PC 

6228 057154 005037 010216 ACTREC: CLR MODTYP 

6209 057160 000417 BR ACTM2X 

ogae 057162 012737 000006 010216 ACTLIS: MOV #L1S,MODTYP 

623¢ 057170 000413 BR ACTMSX 

6236 057172 012737 000004 010216 ACTDLL: MOV #00W,MODTYP 

6235 057200 000407 BR ACTM2X 

6237 057202 012737 000001 010216 ACTTRA: MOV #TRA,MODTYP 

6238 057210 000403 BR ACTM2x 

6240 057212 012737 000005 010216 ACTTAL: MOV #TAL .MODTYP 

624 057220 042737 000004 016224 ACTM2x: BIC #ECHOB,PARAM sDISABLE /ECHO a BUT PASSIVE MODE) 

624 057286 105037 003400 CLRB  —- PSNNUF “CLEAR NOT-ENOUGH FLAG 

6244 057232 005037 010220 CLR MLTYP ?CLEAR MAINT LOOP THPE 

245 057236 000207 RTS PC 
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000004 
177777 
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003250 


003250 


010224 
010216 


003250 


010226 


010220 
010220 
010220 
010220 
010220 
010216 
003401 


ACTNO: 


ACTECH: 


1$: 
2$: 


ACTCHK: 


ACTSTS: 


ACTCRC: 


ACTMOS: 


ACTPRO: 
ACTQFG: 


1$: 


ACTRPS: 


ACTMOP: 
ACTTLP: 
ACTCLP: 
ACTLLP: 
ACTRLP: 
ACTLPX: 


G 15 


23-DEC“82 14:01 PAGE 189 
ACTION TABLE AND ROUTINES 


MOV #NO,QUALFG 
R PC 


CMP #NO, QUALFG 

BEQ 1 

BIS #ECHOB, PARAM 

CMP #PAS ,MODTYP. :BE SURE IN PASSIVE MODE IF 

EQ TIF TRYING TO SET /ECHO 

PRINTF #CLINPS 
MOV #CLINPS,-(SP) 
MOV #1,-(SP) 
MOV SP, 
TRAP CSPNTF 
ADD #4,SP 


MOVB #-1,P$GDBD 
BIC #ECHOB , PARAM 
QUALFG 


CLR zCLEAR ‘'NO’’ OUT OF QUALIFIE:. FLAG 
BR ACTLXX 

MOV #DATCKB,R1 3SET DATA CHECK BIT 

BR ACTQFG 

MOV #STATB,R1 3SET THE STATUS BIT 

BR ACTQFG 


MOV #CRCB,RI 3SET THE CRC BIT 
BR ACTQFG 


~ #MOCHK ,R1 ;SET THE MODEM BIT 


ACTQFG 
MOV #PROTOB,R1 


BIS R1,PARAM 
CMP + leat 


SET THE PROTOCOL BIT 


BNE 

BIC R1, PARAM 

CLR QUALFG :CLEAR ‘'NO’’ OUT OF QUALIFIER FLAG 
BR ACTLXX 


MOV PSNUM,RPASS 7GET NUMBER OF ‘RUN PASSES"’ 
BR ACTLXX 


MOV #5 ,MLTYP 
BR ACTLPX 
MOV #1,MLTYP 


SPECIFY MOP LOOPBACK 
sSPECIFY INTERNAL LOOPBACK 


BR ACTLPX 

MOV #2,MLTYP sSPECIFY CABLE LOOPBACK 

BR ACTLPX 

MoV #3 ,HLTVP sSPECIFY LOCAL MODEM LOOPBACK 


ACTLPX 
MOV #4, MLTYP 
CMP #ACT ,MODTYP 
ACTLXX 
MOVB #-1,P$GDBD 


sSPECIFY REMOTE MODEM LOOPBACK 


;BE SURE IN ACTIVE IF TRYING TO SET LOOP 
; BR IF IN ACTIVE 


SEQ 188 


H 15 


SEQ 189 
CZKMSAO KMS11580/BE peut MACY11 30A(1052) 23-DEC-82 14:01 PAGE 190 
CZKMSA.P11 23-DEC“82 13:54 ACTION TABLE AND ROUTINES 
6303 057516 005037 010220 CLR MLTYP CLEAR ANY LOOP TYPE THAT MAY HAVE GOT SET 
6304 Oo PRINTF #CLIBDL 
6305 057 012746 014125 MOV #CLIBDL,-(SP) 
6306 057526 012746 000001 MOV #1,-(SP) 
6307 057532 01060 MOV SP,RO 
6308 O37 10441 TRAP CSPNTF 
6309 057 0627 6 000004 ADD a4,SP 
6310 057542 105037 003400 ACTLXX: CLRB PSNNUF CLEAR NOT-ENOUGH FLAG 
631) 057546 000207 RTS PC 


1 15 


SEQ 190 

CZKMSAO_1.MS11-BD/BE DCLT MACY11 30A(1052) 23=DEC-82 14:01 PAGE 191 

CZKMSA.P11 2B DEC Bo 13:54 ACTION TABLE AND ROUTINES 
6313 
6314 057550 012737 000062 003246 ACTETB: MOV #ETRB,KEYWD1 ;_RECORD THAT ESTABLISH TYPED 
oi? 057556 000207 RTS PC sRETURN TO CALL 
et? 057560 012737 000063 003246 ACTKTB: MOV #KTRB,KEYWO1 3; RECORD THAT KILL LINE TYPED 
$319 057566 105037 00340 ACTKAL: CLRB PSNNUF ; CLEAR INCOMPLETE INFO FLAG 
O35 Berets 093787 000065 003246 ae #KTRB,KEYWO1 ; Be SURE ALL" IS AFTER A “KILL” 
6 $$ B27 806 112737 177777 +=003401 MOVB #-1 ,PSGDBD : ELSE ERROR IN CMD 
6 p28! 105737 003401 11$: TSTB P$GDBD ; SEE IF WAS AN ERROR FROM ..KTB 
6324 7614 001401 BEQ ; BR_IF NO 
6325 057616 O008 Ie BR ; _ ELSE EXIT 
6326 057620 005037 007634 108: CLR TRBTOT ; ZERO TOTAL # OF LINE NUMBERS 
6327 057624 01 pe 007622 MOV ai Riss Re ; PT R2 TO LINE NUMBER TABLE 
6328 057630 01270 900008 MOV 2 oR ; SETUP RS AS COUNTER 
ose? 057634 01 ise 177777 1$: MOV #-1,(R2)+ ; CLEAR 8 BYTES OF TABLE 
6330 £34 oe $0230 DEC RS 
6331 057642- 001374 BNE 1$ 
O36 057644 000207 28: RTS PC RETURN TO CALL 
6334 057646 105037 003400 ACTSLS: CLRB PSNNUF ; CLEAR THE INCOMPLETE CMD FLAG 
6335 057652 012737 000002 003246 MOV #SHOW ,KEYWD1 ; SET UP TO LOOK LIKE A SHOW CMD 
6336 057660 105737 003401 TSTB P$GDBD ; SEE IF WAS AN ERROR FROM ..KTB 
6337 057664 001401 BEQ 1 ; BR_IF NO 
6338 057666 000465 BR 5$ ; _ ELSE EXIT 
6339 057670 005037 010114 10$: CLR LNCNT ; INIT ADDR/LINE COUNTER 
6340 057674 005737 007634 TST TRBTOT ; SEE IF LIST EMPTY 
6341 057700 001011 BNE 1$ ; _BR IF_NO 
Og 057702 PRINTS #SHTRE ; PRINT THE LINE LIST IS EMPTY 
63435 057702 012746 016000 MOV #SHTRE ,-(SP) 
6344 057706 012746 000001 MOV #1,-(SP) 
6345 057712 010600 MOV SP,RO 
6346 057714 104416 TRAP CSPNTS 
6347 057716 062706 000004 ADD a4 ,SP 
6348 057722 000437 BR 4$ 
6349 057724 AERA 007622 1$: MOV #TRIBLS,R2 ; POINT R2 TO THE LINE NUMBER LIST 
6350 057730 012705 000010 MOV #8., : SETUP RS AS A COUNTER 
6351 057734 PRINTS #SHTRH ; PRINT LINE LIST HEADER 
6352 057734 012746 016042 MOV #SHTRH,=(SP) 
625 057740 012746 000001 MOV #1,-(SP) 
6354 057744 010600 MOV SP,RO 
6355 057746 104416 TRAP CSPNTS 
6356 057750 062706 000004 ADD a4,SP 
$322 057754 Aeerig 000377 2s: CMPB #377, (R2) ; SEE IF A_NULL ENTRY 
6358 057760 00141 BEQ 3$ ; BR IF YES 
6359 057762 111237 010164 MOVB (R2), TEMP 
6360 057766 PRINTS #SHTAP,<B,TEMP> 
6361 937768 003086 CLR (SP) 
6306 057770 153716 010164 BISB TEMP, (SP) 
636 57774 012746 016066 MOV #SHTAP,=(SP) 
6364 0000 3 746 000002 MOV #2,-(SP) 
6365 0004 010600 MOV SPR 
6366 104416 TRAP CSPNTS 
6367 0600 062706 000006 ADD #6,SP 
6368 060014 005202 3$: INC R2 : INCREMENT TABLE ADDRESS 


J 15 


SEQ 191 
CZKMSAO KMS 11-80/BE cut MACY11 30A(1052) 23-DEC-82_ 14:01 PAGE 192 
CZKMSA.P11-25-DEC-82 13:54 ACTION TABLE AND ROUTINES 
6369 060016 005 DEC R5 : SEE IF CHECKED ALL OF LIST 
6370 ead 003392 BNE 2$ : BR BACK IF NO 
6371 0600 4$: PRINTS @CR : ELSE PRINT A PARTING CR 
6 i 9600 012746 021650 MOV #CR,<(SP) 
6373 0600 $ 12746 000001 MOV #1,-(SP) 
6374 060032 010600 MOV SP-RO 
6379 060034 104416 TRAP  CSPNTS 
6376 060036 062706 000004 ADD #4,SP 
, Af 060042 000207 5$: RTS PC RETURN TO CALL 
6379 060044 ACTEKT: 
380 060044 005937 CLR VALTRB sINIT. VALID LINE FLAG 
63581 060050 105037 003400 CLRB  - PSNNUF “CLEAR NOT ENOUGH INFO FLAG 
6382 060054 105737 TSTB P$GDBD : SEE IF WAS AN ERROR FROM ..KTB 
6383 060060 001401 BEQ 10$ : BR IF NO 
6384 060062 000443 BR ACTEXX : ELSE EXIT 
6386 060064 013701 003374 10$: MOV PS$NUM,R1 
6387 060070 022701 000007 CMP #7,R1 sSEE THAT ITS A VALID LINE NUM (0-7) 
6388 060074 103012 BHIS 2% : 
6389 060076 1$: PRINTS #SHTIV,R1 
6390 060076 010146 MOV R1,<(SP) 
6391 060100 012746 016146 MOV #SHTIV,<(SP) 
6392 060104 012746 000002 MOV #2,-(SP) 
6393 060110 010600 MOV SP.RO 
6394 060112 104416 TRAP - CSPNTS 
6395 060114 062706 000006 ADD #6,SP 
6596 060120 000424 BR ACTEXX 
6398 060122 022737 000062 003246 28: CMP WETRB.KEYWO1 = ;_ SEE_IF KILL OR ESTABLISH 
6399 060130 001401 BEQ ACTEKE : BR IF WAS AN ESTABLISH 
6400 060132 000615 BR ACTKAL : KILL LINE : #2827 ONLY ONE POSSIBLE 
6402 060134 ACTEKE: 
6404 060134 012702 007622 MOV #TRIBLS.R2 : ONCE CHECKED LIST 
6405 060140 110112 MOVB = R'1,, (R2) : LOAD LINE NUMBER IN 1ST SLOT DCLT 
6406 060142 012737 000001 007634 MOV #1 TRBTOT : SPECIFY TOTAL # LINES = 1 DCLT 
6407 060150 162702 007622 SUB #TRIBLS,R2 : SUBTRACT START OF LIST FROM POINT TO 
6409 060154 012737 177777 003404 MOV #-1, VALTRB [SET VALID LINE FLAG 
6410 060162 010237 007642 MOV R2, INDEX “MOVE R2 TO INDEX 
ae 060166 010137 007640 MOV R1. INDW “MOVE LINE NUMBER TO INDW 
otis 060172 ACTEXX: 
6414 060172 000207 RTS PC SRETURN TO CALL 
6616 
6417 
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SEQ 192 
CZKMSAO KMS11-BD/BE DCLT MACY11 30A(1052) 23-DEC-82 14:01 PAGE 193 
CZKMSA.P11 38 ber 2 13:54 SETUP FOR RECEIVER ALLOCATIONS 
6618 .SBTTL SETUP FOR RECEIVER ALLOCATIONS 
6420 sSTART EXECUTION OF RUN COMMAND 
6421 060174 GTR9: 
64 2 : RX ALLOCATE CODE 
6424 060174 032737 000002 010224 BIT #DATCKB,PARAM  ;1S THIS DATA CHECK 
6425 060202 9014¢1 BEQ 44$ ‘BRANCH IF NO 
6426 060204 005737 010220 TST MLTYP 
6427 060210 001416 BEQ 44$ sBRANCH IF NOT LOOP 
64 8 960 12 023737 010056 010074 CMP CMPTOT,TXMTOT ARE TX AND EX EQUAL 
64 0 1412 BEQ 4$ ‘BRANCH IF YES 
6430 060 : PRINTF #CLIPW SPRINT MESSAGE TO OPERATOR 
6431 060222 012746 014450 MOV #CLIPW,-(SP) 
6432 060206 012746 000001 MOV #i,-(SP) 
6433 060232 010600 MOV SP,RO 
6434 060234 104417 TRAP  CSPNTF 
6435 060236 062706 000004 ADD #4,SP 
6436 060242 000137 054576 JMP GETCL :GO GET NEXT COMMAND 
6438 060246 44$: sCHECK FOR AT LEAST ONE LINE ENABLED 
6439 060246 005737 007634 TST TRBTOT s1S LINE TOTAL 
6440 060252 001013 BNE 4 :2ERO?..BR IF NOT 
6441 060254 PRINTF #SHTLPA ‘PRINT ERROR MUST ESTABLISH LINE 
6442 060254 012746 016072 MOV #SHTLPA,-(SP) 
6443 060260 012746 000001 MOV #1,-(SP) 
6444 060264 010600 MOV SPR 
6445 060266 104417 TRAP  CSPNTF 
6446 060270 062706 000004 ADD #4 ,SP 
6447 060274 112737 177777 003401 MOVB = #1, P$GDBD >SET ERROR FLAG 
6448 060 93 4$: sCHECK ERROR FLAG 
6449 060302 105737 003401 STB © PS$GDBD sTEST ERROR FLAG 
6450 060306 001043 BNE 12$ “BRANCH IF ERROR 
6451 :CHECK If DEFAULT RUN COMMAND. 
6432 060310 013737 010060 010150 MOV CTOTCC, CURCC sMAKE CURRENT COUNT= COMPARE COUNT 
6453 060316 005737 010150 TST CURCC :TEST TOTAL COMPARE COUNT 
6454 060322 901003 BNE [BRANCH IF NON DEFAULT 
6655 0603¢4 012737 000072 010150 - MOV #58... CURCC :SET UP DEFAULT 
6457 060332 032737 000002 010224 BIT #DATCKB, PARAM 
6458 060340 001430 BEQ 23 sBRANCH IF NOT CHECKING 
6459 060342 013737 007634 010046 MOV TRBTOT,MPLY 
6460 06035 01 737 010150 010164 MOV CURCC, TEMP 
6461 060356 05087 01017 CLR TEMP 
6462 060362 004737 030356 JSR PC,MTPLY sMULTIPY TRBTOT BY CURCC 
646 “RESULT IN TEMP2 
6464 060366 022737 001000 010170 CMP #BUFLIM,TEMP2 :1S IT MUCH TO MUCH 
6465 060374 002012 BGE [NO EVERTHING IS HUNKY DORY 
64 060376 PRINTF #SHTBR S ERROR 
6467 060376 012746 016237 MOV #SHTBR,-(SP) 
6468 060402 012746 000001 MOV #1,-(SP) 
6469 960406 910600 MOV SP.RO 
6470 060410 10441 TRAP = CSPNTF 
6471 060412 062706 900004 ADD #4,SP 
060416 0001 054576 12$: JMP GETCL :GO BACK TO GET NEW COMMAND 
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SEQ 193 
CZKMSAO KMS11-BD/BE DCLT MACY11 30A(1052) ga E Co82 14:01 PAGE 194 
CZKMSA.P11 a rE BS 13:54 FOR RECEIVER ALLOCATIONS 

6474 0604 2$: s INITIALIZE POINTERS, COUNTERS AND FLAGS 
6475 060422 012737 006406 010052 MOV #PTRTIAB,TXPTR ;INIT TRANSMIT MESSAGE POINTER 
6476 060630 012737 006502 010054 MOV R13,CMPPTR INIT COMPARE MESSAGE POINTER 
6477 060436 oi 737 006576 010050 MOV #PTR23,RXPTR INIT RECEIVE MESSAGE POINTER 
6478 060444 013737 010056 010112 MOV CMPTOT.RXMTOT :MAKE COMPARE AND RX MESSAGE COUNTS EQUAL 
6479 060452 032737 000002 010224 BIT #DATCKB,P ARAM :I1S IT DATA CHECK 
6480 060460 0010 3 BNE GTREX [BRANCH IF CHECKING 
6481 06046 O27 900001 010112 MOV #1,RXMTOT [IF NOCHK MAKE RXCOUNT 
648 060470 005037 010134 GTREX: CLR CLNSET [CLEAR CLEANUP IN PROGRESS SPECIFIER 
6483 060474 005037 007644 CLR CTX [CLEAR TX COMPLETE COUNT 
6484 960500 9090 7 007646 CLR CRX 'CLEAR RX COMPLETE COUN 
6485 0504 05937 13634 CLR ILLRSP . sCLEAR ILLEGAL oat ta count 
6486 060510 005037 013656 CLR STARTC ?CLEAR DDCMP START 
6487 060514 005037 013640 CLR ERRTHR [CLEAR ERROR FHRESHHOLD RESPONSE COUNT 
6488 060520 905037 013642 CLR RXMIT ?CLEAR RETRANSM IT COUNT 
6489 060524 012737 007672 007650 MOV #RXSTAK,RSPTRS :POINT TO START OF RX SAVE AREA 
6490 060532 012737 007672 007652 MOV WRXSTAK.RSPTRE AGAIN. POINT TO START OF RX SAVE AREA 
6491 060540 012737 007656 007654 MOV #IXSTAK.TSPTR  :POINT TO START OF TX SAVE AREA 
6492 060546 005037 010230 CLR FLAG *CLEAR FLAG 
6493 060552 005037 010116 CLR OPVAR :CLEAR NO BUFFER COUNTER 

494 060556 005037 010120 CLR OPVAR1 [CLEAR OPVAR 
6495 060562 005037 010122 CLR PSCNT *CLEAR PASS tout 

96 060566 005037 010124 CLR ERRCNT [CLEAR ERROR COU 
6497 060572 005037 010114 CLR LNCNT “CLEAR COUNTER THAT IS USED FOR STATUS 
6498 s INITALIZE COMMUNI CAT IONS VICE 
6499 060576 004737 024244 JSR PC,LOGDVI ;LOG ABOUT TO INIT DEVICE 
6300 060602 004737 063024 JSR PC.DVINIT SINIT DEVICE 
6502 060606 012737 177777 007642 GIRX2: MOV #-1, INDEX ;MAKE INDEX =-1 
6503 060614 013737 010150 010164 GTRX2C: MOV curcc, TEMP 
6504 060622 032737 000002 010224 BIT #DATCKB,PARAM 31S THERE at CHECKING 
6505 060630 001005 BNE GTRX2A “BRANCH IF CHECKIN 
6506 060632 012737 001000 010150 MOV #BUFLIM,CURCC :SET UP CHAR COUNT TO ‘BUFLIM’ 
6507 060640 005037 010164 CLR TEMP 
6508 060644 004737 030402 GTRX2A: JSR PC ,GTVIND sGET VALID INDEX 
6509 060650 022737 000010 007642 CMP #8. , INDEX t1$ IT 
6510 060656 001422 BEQ GTRK2B [YES.. ALL DONE GO EXECUTE MODE 
62'¢ 3GET RXBUFF PTR FIGURE 
6514 060660 012737 005406 010170 MOV WRXBUF .TEMP2 ©; TEMP = 0 FOR PIP OR MTP/W NO CHK 
6515 060666 013737 007642 010046 MOV INDEX, MPLY S INDEX X TEMP* RXBUF ADDDR 
6516 060674 004737 030356 JSR PC,MTPLY [NEW RXBUF ADDR 
617 060700 013737 010170 010156 MOV TEMP2,CURADD  :SET UP RX BUFFER ADDRESS 
6519 sGET CURRENT POINTER FIGURE 
6521 060706 004737 030474 JSR PC, GRPTCP 
6328 :G0 LOAD °33* TO BUFFER 
6525 060712 012737 000010 010146 MOV #10, MSGTYP sSET UP FOR 33 10 FILL RX BUFFERS 
6526 060720 004737 027520 JSR PC ,BLDBUF “CLEAR RX BUFFER 
6527 060724 013702 010216 GTRX2B: HOV MODTYP,R2 
6528 060730 00630 ASL R 
6529 060732 000172 010232 JMP @MODE (R2) :MODE DISPATCH 
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SEQ 195 
CZ7KMSAO KMS11580/BE _ pct MACY11 30A(1052) 23-DEC-82 14:01 PAGE 196 
CZKMSA.P11 23=DEC-82 13:54 RECEIVE MODE SECTION 
6531 .SBTTL RECEIVE MODE SECTION 
£236 p++ 
65 ; FUNCTIONAL DESCRIPTION: 
6534 : RECEIVE-ONLY (OR ONE SWAY IN) ROUTINE 
6535 : IN THIS MODE OF TESTING THE DEVICE'S RECEIVER IS ENABLED IN EXPECTATION 
6536 ; F RECEIVING A MESSAGE. AFTER RECEIVING AN ‘EXPECTED’ NUMBER OF 
6537 : MESSA GES, THE DATA RECEIVED CAN BE COMPARED AGAINST A LIST OF “EXPECT 
6938 : TO RECEIVE’ MESSAGES IF DATA-CHECKING IS ENABLED. 
6540 + SUBORDINATE ROUTINES USED: 
6541 : “ALLTR" 
654 : 
654 : CALLING SEQUENCE : 
tre} 3 AMODE (R2) DISPATCH TO MODE RASED ON MODE TYPE IN R2 
6546 ‘ 
6547 069736 052737 000104 010230 RXONLY: BIS WORX+ERX,FLAG ;SET UP RX QUE: RX QUEUED, RX EXPECTED 
6548 060744 004737 030160 JSR PC,LCPRLS SLOAD CPTRLS (RX PTRS 
6549 060750 004737 030112 JSR PC ’RXQUAL 'G0 QUE ALL VALID RRS 
6550 060754 005037 010154 RXON3: CLR cPTR 
6551 060760 000137 061110 JMP ALLTR :GO RX. 
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SEQ 196 
CZKMSAO KMsi1 D/BE pou MACY11 30A(1052) 23-DEC-82 14:01 PAGE 197 
CZKMSA.P11 =DEC+B82 13:56 TRANSMIT MODE SECTION 

6 ; .SBTTL TRANSMIT MODE SECTION 

6555 3+ 

65 § : FUNCTIONAL DESCRIPTION: 

655 ; ANH IT-ONLY (OR ONE=WAY-0UT) ROUTINE 

6558 ; In | HiS MODE OF TESTING A LIST OF MESSAGES I$ TRANSMITTED WITHOUT 
6559 : EXPECTING ANY DAT BE RECEIVED. A REPETITION COUNT CAN BE 
6360 ; SPECIFIED TO REPETITIVELY TRANSMIT THE LIST. 

656 + SUBORDINATE ROUT INES, USED: 

636 : “ALLTR' 

6564 5 

6565 : CALLING SEQUENCE : 

6366 : MODE (R2) sDISPATCH TO MODE BASED ON MODE TYPE IN R2 
6568 ‘ 

6569 06076 942737 900002 010224 TXONLY: BIC #UATCKB,PARAM  ;SET NOCHECK 

6570 060772 004737 030306 TXON2: JSR PC,LCPTL i LOAD TX POINTERS AND TX COUNTS 

6571 060776 052737 000210 010230 BIS MOTKX+ETX, FLAG QUEUED, T x COMPLETE EXPECTED 

6572 061004 004737 030262 JSR PC,CLRPLS SHEAR RXPRT tist 

6573 061010 012737 000010 007642 MOV #8. , INDEX 

6574 061016 000137 061110 JMP ALLTR 360 TX. 
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SEQ 197 
CZKMSAO KNS11-80/8E | cut MACY11 30A(1052) 23-DEC-82. 14:01 PAGE 198 
CZKMSA.P11  23-DEC-82 13:54 PASSIVE MODE SECTION 
657 .SBTTL PASSIVE MODE SECTION 
6578 : 
6579 : FUNCTIONAL DESCRIPTION: 
6580 : PASSIVE MODE SECTION 
6581 : IN THIS MODE OF TESTING, THE DEvice’S RECEIVER 1S ENABLED IN 
658 : EXPECTATION OF RECEIVING A MESSAGE. THEN EVERY TIME A MESSAGE IS 
658 : RECEIVED, A MESSAGE IS TRANSMITTED. DATA CHECKING CAN BE DONE ON THE 
6986 : RECEIVED DATA. 
6986 : SUBORDINATE ROUTINES USED: 
6588 : “ALLTR' 
6589 : 
6590 CALLING SEQUENCE ; 
6591 : JMP MODE (R2) DISPATCH TO MODE BASED ON MODE TYPE IN R2 
659 
6594 061022 004737 030306 PLCK: JSR PC,LCPTLS sLOAD 1X POINTERS AND TX COUNTS 
6595 061026 004737 030160 JSR PC-LCPRLS ‘SET UP CPTRR TO REC POINTERS 
6596 061082 052737 000104 010230 BIS WORK*ERX.FLAG ©: RX aU UED AND EXPECT RX 
6597 061040 004737 030112 JSR PC, RXQUAL QUE A 
6598 061044 000137 061110 MP ALLT * AND GORX FIRST MSG. 
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SEQ 198 
CZ7KMSAO RS 1190/9 pout MACY11 30A(1052) 23=DEC-82 14:01 PAGE 199 
CZKMSA.P11 23=DEC-82 13:54 ACTIVE MODE SECTION 
6600 ~SBITL ACTIVE MODE SECTION 
$602 
660 : ; FUNCTIONAL yRESCRIPT ION: 
6604 ; ODE SECTION 
6605 : ct Mis MROBE OF TESTING, A LIST OF MESSAGES IS TRANSMITTED AND THOSE 
6606 3 MESSAGES ARE EXPECTED TO BE RECEIVED. RECEIVED DATA CAN BE COMPARED 
6607 : AGAINST EXPECTED’ DATA IF DATA=CHECKING IS ENABLED. 
6608 ; NOTE: IF BOTH ENDS OF THE LINK ARE IN ACTIVE MODE, THEN THE 
eet 3 LINK MUST BE A FULL DUPLEX LINK! 
661) : SUBORDINATE ROUTINES USED: 
$618 ; “ALLTR" 
6614 : 
6615 7 ; CALLING , SEQUENCE ; 
Sete 3 AMODE (R2) DISPATCH TO MODE BASED ON MODE TYPE IN R2 
6618 
6619 061050 ALCK: 
6620 061050 032737 000002 010224 BIT #DATCKB,PARAM ;1S IT DATA CHECK 
6621 061056 001003 BNE 1$ ‘BRANCH IF cee 
6622 061060 013737 010074 016112 MOV Lenton RXMTOT =; IF NOCH MAKE RX=TX 
6623 061066 004737 030306 1$: JSR PC,LCPTLS LOAD TX POINTERS AND COUNTS 
6624 061072 004737 030160 JSR PC,LCPRLS ‘LOAD RX POINTERS 
6625 061076 052737 000314 010230 BIS HORK+QTXFETX+ERX FLAG im QUEUED, TRANSMIT QUEUED 
6626 XPECT RECEIVE, EXPECT TRANSMIT 
S62? 061104 004737 030112 JSR PC,RXQUAL ;QUE UP i* RX BUFFER FOR ALL VALID LINES 
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SEQ 199 
CZKMSAO KMS11-BD/BE DCLT MACY11 30A(1052) 23-DEC-82 14:01 PAGE 200 
CZKMSA.P11  23=DEC-82 13:54 TRANSMIT = RECEIVE FOR ALL STANDARD MODES 
66 9 .SBTTL TRANSMIT = RECEIVE FOR ALL STANDARD MODES 
6631 + 
66 g ; FUNCTIONAL DESCRIPTION 
6633 ; THIS CODE PERFORMS THE FOLLOWING FUNCTIONS: 
6635 : 1.) IF RX BUFFERS ARE 10 ag gOvevee TELL ppeyice 
6636 ; CODE TO QUE THEM AND L CEiveE 
6637 : 2.) IF TX BUFFERS ARE TO ra web TELL DEVICE 
6638 3 CODE TO QUE THEM AND LOG i TRANSMIT QUE 
6639 : 3.) WAIT FOR EITHER RECIVE BU UEFER OR TRANSMIT BUFFER OR 
6640 ; BOTH TO COMPLETE THE SETUP PROCESS. 
6641 : 4.) IF RECEIVE COMPLETE, LOG IT. THEN, IF DATA CHECKING 
664 1S ENABLED, UPDATE THE RX T ‘ 
664 : 5.) IF TRANSMIT COMPLETE, LOG IT. 
6644 ; 6.) WHEN BOTH TRANSMIT AND RECEIVE LISTS ARE DONE, 
6645 ; GO TO THE COMPARE BUFFER CODE. 
6647 ; SUBORDINATE ROUTINES, USED: 
6648 : "DVRXG “*QUE RECEIVE BUFFER SPACE TO DEVICE 
6649 ; LOGRXQ"=LOG RECEIVE BUFFER SPACE TO EVENT LOG 
6650 ; “LOGTXG “LOG TRANSMIT BUFFER QUED TO EVENT LOG 
6651 ; “BVEXRX"=OUE TRANSMIT BUFFER AND WAIT FOR RX 
665 ; |, OR TX TO COMPLETE 
665 : “LOGRXC''=LOG RECEIVE BUFFER COMPLETED TO EVENT LOG 
6654 : ‘LOGTXC’=LOG TRANSMIT BUFFER COMPLETED TO EVENT LOG 
6656 ; USE OF FLAG BITS: 
6657 : ORX - SET ON ENTRY TO ALLTR IF RECEIVE IS TO BE QUED TO 
6658 : DEV ICE. CLEARED BY DVRXQ AND THEN SET BY DVTXRX 
6659 : WHEN RX IS COMPLETED. 
6660 : QTX = SET ON tibute 70 ALLTR If TRANSMIT IS TO BE QUED TO 
6661 3 DEVICE, CLEARED ON ENTRY TO DVTXRX AND SET BY DVTXRX 
6662 ; WHEN TX BUFFER IS COMPLETED 
6663 : ETX = USED BY DVT T0 DETERMINE” IF TX BUFFER COMPLETED IS 
6665 ; ERX - BSED BY DVTXRX TO DETERMINE IF RX BUFFER COMPLETCD IS 
3 EXPECTED. 
6667 ; 
6668 : 
6669 ; CALLING SEQUENCE : 
6670 ; JMP ALLTR :GO TO TRANSMIT-RECEIVE FOR ALL STANDARD MODES 
6672 
6673 
6674 061110 ALLTR: 
6675 061110 032737 000004 010230 ALCKS: BIT WORX, FLAG s1S A RECEIVE QUEUED? 
6676 061116 001406 BEQ ALCK4 [IF NO RX QUEUE PENDING, SEE IF TX PENDING 
6678 061120 004737 030454 ALCKSB: JSR PC,ULRPLS GET INDEX 
6679 061124 004737 031142 JSR PCLOGAQR LOG AND UE REC. 
6680 061130 004737 030434 JSR PC-LDRPLS *RESTORE RX PTR TO LIST 
6682 061134 032737 000010 010230 ALCK1: BIT #OTX, FLAG s TRANSMIT QUEUED 
6683 061142 00142¢ BEQ ALCK [IF NO TX® 2 
6686 061144 004737 031030 JSR PC ,GNIXPR ‘TRANSMIT COMPLETE FLAG SET: GET NEXT XMIT PTR. 
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SEQ 200 

CZKMSAO KMS11 SRO /BE peut MACY11 30A(1052) 23-DEC-82 14:01 PAGE 201 2 
CZKMSA.P11 23-DEC-82 13:54 TRANSMIT = RECEIVE FOR ALL STANDARD MODES 

6685 061150 0137 10154 MOV CPTR,R2 sPOINTER TO NEXT ADDRESS, BYTE COUNT PAIR 
6686 061154 th : 010170 MOV (R2). TEMP2 : ADDRESS OF THE MESSAGE 

6687 061160 oie 7 01 064 MOV (RO) +, DVTXA [SAME A 

6688 061164 011237 O191 2 MOV (RO), TEMPS *BYTE COUNT OF THE MESSAGE 

6689 061170 012237 010066 MOV (R2)+,DVTCC ‘SAME BYTE COUNT 

6690 061174 010237 010154 MOV R2,CPTR NOW POINTING TO FOLLOWING MESG ADDR, BYTE CT 
6691 061200 004737 030572 JSR PC. LOTPLS LOAD L 

669 061204 004737 024144 JSR C;LOGTX TOG TRANSAT T QUEUED 

669% 061210 004737 064340 ALCK2: JSR PC ,DYTXRX :GO0 TO TX AND RX SUBROUTINE 

6696 061214 032737 000004 010230 BIT WORX, FLAG i CHECK FOR REC. QUEUED 

6697 061 001542 BEQ ALCKS :I1F MESSAGE NOT RECEIVED. CHECK FOR TX 
6698 061224 01373 010104 010170 MOV DVRXA, TEMP SMESSAGE RECEIVED, LOG IT 

6699 061232 013737 010106 010172 MOV DVRCC. TEMP ‘LOG EVENT 

6700 061240 013737 010102 007636 MOV DVRTB, TRIBN SLOG MESSAGE RECEIVED 

6701 061246 004737 024216 JSR PC,LOGRXC SLOG REC COMPLETE 

6703 061252 032737 0000046 010224 UPTABL: BIT #ECHOB, PARAM i1S THIS ECHO MODE (PASSIVE) 

6706 061260 001410 BEQ UPT [IF NOT GO 

6705 061262 004737 030612 JSR PC Oc TPLS 

6706 061266 613702 010154 MOV PTR SELSE SET R2 TO PRESENT TX TABLE 

6707 061272 013728 010170 MOV aly (R2)+ ‘STORE OFF RX ADD 

6708 061276 013712 010172 MOV TEMPS, (R2) : AND 

6709 061302 032737 000002 010224 UPTA4: BIT #DATCKB, PARAM :IS DATA CHECKING ASKED FOR 

6710 061310 001012 BNE UPTAI IF SO 60 TO UPTAI 

6711 061312 004737 031102 JSR PC,GETIND °GET IND 

6712 061316 004737 030210 JSR PC-LCPRL1 ? RESTORE POINTER 

6713 061322 013737 010170 010152 MOV TEMP2,CPTRR SRESTORE POINTER 

6714 061330 004737 030434 JSR PC,LDRPLS ‘LOAD COUNT AND LIST 

$715 061334 000440 BR UPTEX 

6717 061336 004737 030454 UPTA1: JSR PC, ULRPLS 3GET PTR FROM LIST 

6718 061342 013702 010152 MOV C 2 

6719 061346 013737 010172 010160 MOV TEMPS. TOTCC :COPY RCVD MESSAGE COUNT 

6720 061354 013737 010170 010156 MOV TEMP2, CURADD COPY RCV D MESSAGE ADDRESS 

6721 061362 063737 010160 010156 ADD TOTCC CURADD — ;POINT TO END OF RCVD MESSAGE 

6722 061370 004737 027644 JSR PC FCUR 4D MAKE SURE ADDRESS IS ON WORD BOUNDARY 
6723 061374 011237 010164 MOV (R32), TEMP [LOAD TEMP WITH PREV. RX BUFF LENGTH 
6724 061400 163737 010160 010164 SUB Torce. TEMP i SUBTRACT CURRENT COUNT 

6725 061406 013722 010172 MOV TEMPS, (R2)+ [COPY ACTUAL COUNT RECEIVED 

6726 061412 013722 010156 MOV CURADD (R2)+ STORE OF NEW RXBUFF ADDRESS 

6727 061416 013712 010164 MOV TEMP, (R2) iAND N NEW BUFF LEN 

6728 061422 162702 000002 SUB #2,R PUT POINTER BACK 10 ADDR. 

6729 061426 01023 010152 MOV R2,CPTRR [AND RESTORE IT. 

6730 061432 004737 030434 JSR PC.LDRPLS 

6731 061436 UPTEX: 

6732 061436 022737 000002 010216 CMP #PAS MODTYP 

6733 061444 001011 BNE ALCK2A :1F NOT PASSIVE LOOP THEN GO TO 2A 

6734 061446 005337 007642 DEC INDEX [IF PASSIVE NEXT TXQ WILL BE FOR THIS LINE 
6735 061452 042737 000004 010230 BIC WORX, FLAG :CLEAR BOTH EXPECTED AND COMPLETED FLAGS 
6736 061460 052737 000210 010230 BIS WOTX*ETX,FLAG :TX QUEUED, EXPECT TRANSMIT COMPLETE 

67 i 061466 000622 BR ALCK1 

6739 061470 004737 030552 ALCK2A: JSR PC,ULRCLS :GET COUN 

6740 061474 005337 010110 DEC DVRCT [DEC REC COUNT 
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SEQ 201 
CZKMSAO KMsit; D/BE cur MACY11 30A(1052) 23-DEC-82 14:01 PAGE 202 
CZKMSA.P11 23=DEC-B2 13:54 TRANSMIT = RECEIVE FOR ALL STANDARD MODES 
6741 061500 004737 03053 JSR PC,LDRCLS sRESTORE COUNT 
6742 061504 eet 1011 TST DVRCT 31S IT ALL DONE 
674 06191 g010 BNE ALCK3 ' G0 CHECK TX 
6744 06151 Ke 7 000004 010230 BIC #ORK, FLAG SCLEAR THE a QUEUED FLAG 
6745 06132 00 9 7? 010152 CLR CPTRR SYES. CLEAR POINTER 
6746 061524 004737 030434 JSR PC,LDRPLS SAND RELOAD LIST 
6748 sCHECK FOR MESSAGE TRANSMITTED 
6749 061530 032737 000010 010230 Aces BIT #OTX, FLAG :1$ A TX X QUEUED? 
6750 061536 001467 BEQ ALCKS :1F NOT TX THEN GO BACK (NEITHER RX NOR TX) 
6751 061540 0137 7 010064 01017 MOV DVTXA, TEMP : TRANS omit “COMPLETED= LOG IT 
6752 061546 013737 010066 01017 MOV OVTCC, TEMP ‘LOG TX COMPLET ED 
6753 061554 013737 010070 007636 MOV DVTTB. TRIBN ‘LOG EV 
6794 061562 004737 024162 JSR PC,LOGTXC CT ANSMIT COMPLETE 
6756 061566 004737 030652 JSR PC,ULTCLS sGET CURRENT TRANSMIT COUNT TO DvTCT 
6757 061572 005337 010072 DEC ovict [DEC TX COUNT TO RECORD 1 MESSAGE TX COMPLETED 
6798 061576 004737 030632 JSR PC,LDTCLS SAND RELOAD LIST 
6760 061602 022737 000002 010216 CMP #PAS .MODTYP ARE wif IN PASSIVE MODE? 
6761 061610 901020 BNE ALCKSA [IF NOT PASSIVE MODE GO TO 3A 
6762 061612 042737 000010 010230 BIC #OTX, FLAG + TRANSMIT COMPLETE, NO LONGER QUEUED. 
6763 061620 005737 010072 TST DVTCT 
6764 061624 001403 BEQ ALCK3D s1F NO MORE MESS TO RX FOR THIS LINE 
6765 TEXIT WITHOUT RESETING QRX (RX STILL QUEUED) 
6766 gereee 052737 000104 010230 BIS #ORX*ERX, FLAG + AND SET THE RX FLAGS 
6767 061634 004737 030744 ALCK3D: JSR PC,GATCFL 
6768 061640 005737 010072 TST DVICT 
6769 061644 001007 BNE ALCK3C s1F MORE 1X'S TO IT 
6770 061646 000137 061742 JMP CMPSR : ELSE E OMPARE 
677 NOT PASSIVE MODE 
6773 061652 004737 030744 ALCK3A: C,GATCFL :GET ALL TX COUNTS FROM LIST 
6774 061656 005737 010072 13 pvict i1S IT L DONE? ALL TRANSMISSIONS COMPLETE? 
6775 061662 001404 BEOQ ALCK3B [IF NOT ab BACK TO 
6776 061664 004737 031102 ALCK3C: JSR PC GETIND ZALL TRANSMISSIONS COMPLETE FOR CURRENT LINE 
6777 061670 000137 061110 JMP ALCKS [NOW Ger ANOTHER VALID LINE. 
6778 061674 005037 010154 ALCK3B: CLR cere CLEAR POINTER 
6779 061700 042737 000010 010230 BIC TRANSMIT COMPLETE, NO LONGER QUEUED. 
6780 061706 032737 000002 010224 BIT fDAtKs, B ARAM 1S IT DAT CHE 
6781 061714 001405 BEQ KGA [IF NOT THEN END WO CKING RX. 
678 061716 004737 030672 ALCK4: JSR pt GARPFL 
6783 961722 005737 010152 1ST CPTRR - 
6784 061726 001356 BNE ALCK3C s1F SOME RX''S LEFT GO BACK 
6785 061730 005737 010154 ALCK4A: TST CPTR 
6786 061734 001402 BEQ CMPSR sBRANCH IF ANY TX*S LEFT 
6787 061736 000137 061210 JMP ALCK2 
6789 
6799 
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SEQ 202 

CZKMSAO KMS11=B0/BE | cut MACY11 30A(1052) 23=DEC-82 14:01 PAGE 203 7 
CZKMSA.P11 23=DEC-82 13:54 DATA COMPARISON CODE 

679 .SBTTL DATA COMPARISON CODE 

6794 

6795 y+ 

6796 ; FUNCTIONAL DESCRIPTION: 

6798 : CMPSR = COMPARE CODE 

6799 ; THIS CODE COMPARES THE RECEIVED DATA AGAINST THE 

ret ; EXPECTED AND FILLS THE EVENT LOG WITH 1 OF 3 MSGS. 

680¢ ; NOTE: IF NO DATA CHECKING SKIP THIS CODE 

6804 : 1.) A DATA COMPARISON ENTRY WHICH REPORTS THE NUMBER 

6805 ; OF COMPARISON ERRORS FO 

6806 ; 2.) A DATA COMPARISON ENTRY WHICH REPORTS DIFFERENCES 

6807 : IN REC LEN GIN TO COMPARE LENGTH. 

6808 ; 3.) A DATA COMPARISON STARTED ENTRY WHICH REPOPTS ADDRESS 

6809 ; OF RECEIVE BUFFER AND BYTE T, 

6810 ; THIS CODE ALSO REPORTS SOFT ERRORS FOR DATA COMPARISON 

6811 : (THE FIRST 5 ONLY), LENGTH ERROR,AND TOTAL NUMBER OF ERRORS 

oars : 

6814 : SUBORDINATE ROUTINES USED: 

6816 : “LOGCMP’’ = SEE ITEM 3 ABOVE 

6817 : “COGCML' = SEE ITEM 2 ABOVE 

6818 ; “LOGCMD'' - SEE ITEM 1 ABOVE 

6820 : CALLING SEQUENCE: 

6821 : JMP CMPSR ;JUMP TO DATA COMPARISON CODE 

6823 i 

6824 061742 032737 000002 010224 CMPSR: BIT #DATCKB,PARAM  ;1S DATA CHECKING TO BE DONE 

6825 061750 001533 BEQ CMPSEX [IF NOT THEN EXIT 

6826 061752 012737 177777 007642 MOV #-1, INDEX 

6827 061760 004737 030402 CMPNEW: JSR PC, GTVIND 

6828 061764 022737 000010 007642 CMP #8. , INDEX 

6829 061772 001522 BEQ CMPSEX sEND IF NO MORE LINES 

6831 061774 004737 030474 JSR PC,GRPTCP 

6832 062000 013737 010054 010152 MOV CMPPTR,CPTRR |; AND START OF COMPARE POINTS TO CPTRR 

6855 062006 013737 010112 010110 MOV RXMTOTDVRCT ; 

6835 062014 CMPS3: 

6836 062014 015702 010154 MOV CPTR,R2 sMOVE CURRET RX PT.TO R2 

6837 062020 011237 010170 MOV (R2). TEMP2 [MOVE RX ADD TO EVENT ofS, 

6838 062024 912201 MOV (R2)+,R1 *SET R1 TO START ADD O 

6839 962026 012237 010172 MOV (R2)+, TEMP ?SET CHAR COUNT TO EVENT “L0G 

6840 062032 010237 010154 MOV R2,CPIR SRESTORE RX POINT 

6842 062036 013702 010152 MOV CPTRR,R2 :PUT R2 AT COMPARE TABLE 

6843 062042 01 30 MOV (Ree 7SET R3 TO COMPARE ADD 

6844 062044 ot 04 MOV (R2) +. RG *SET R4 TO COMP CC 

6845 062046 010237 010152 MOV R2,CPTRR SRESTORE POINTER 

6846 062052 010437 010174 MOV RG, TEMPS 

6847 062056 004737 024312 JSR PC; LOGCMP :LOG COMPARE START. 
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SEQ 203 
CZKMSAO_KMS11-BD/BE DCLT MACY11 30A(1052) 23-DEC-82 14:01 PAGE 204 
2Sepet-B2 13:54 Th COMPAR A 


CZKMSA.P11 “DEC DATA COMPARISON CODE 
gare 062062 020437 010172 CMP R4, TEMP 1S COMPARE COUNT = TO RX COUNT 
; UNT = x UN 
6850 Oes0e 01410 BEQ Rnb) :I1F $0 GO TO 
6851 062070 005237 010124 INC ERRCNT 
685 000001 ENUM = “D<ENUM+1> s INCREMENT ERROR NUMBER 
685 062074 ERRSOFT ENUM,EDDLE.ERR10 sPRINT ERROR 
6854 062074 104457 TRAP  CSERSOFT 
6855 062076 000001 .WORD 1 
6856 062100 017661 “WORD EDDLE 
6857 062102 023430 “WORD ERR10 
6858 062104 004737 024330 JSR PC,LOGCML ;LOG LENGTH ERROR 
6860 062110 005037 010174 CMPS7: CLR TEMP :CLEAR BAD BYTE COUNTER 
6861 062114 012737 000001 010162 OV #1,0FSET *SET OFSET BYTE COUNT TO 1 
686 06 \g¢ deel$3 CMPS1: CMPB (R1)+, (R3)¢ :COMPARE RX WITH EXPETED 
6863 062124 001422 BEQ CMPS6 :1F EQUAL THEN GO TO 6 
ores 062126 005237 010174 CMPS2: INC TEMP4 sINC BAD COUNT 
6866 062132 023727 010174 000005 CMP TEMP4 #5 [1S IT MORE THEN 5 
6867 062140 101014 BHI MPS6 :1F $O GO FOR MORE 
6868 062142 114337 010204 MOVB  =(R3),GOOD ‘STORE GOOD BYTE FOR ERROR 
6869 06146 114137 010205 MOVB  =(R1).BAD ‘STORE BAD BYTE FOR ERROR 
6870 062152 005237 010124 INC RRCNT 
6871 000002 ENUM = “D<ENUM+1> ; INCREMENT ERROR NUMBER 
687 062156 ERRSOFT ENUM,EDDDE,ERR1 ;REPORT COMPARISON FAILURE TO OPR. 
687 062156 104457 TRAP CSERSOFT 
6874 062160 000002 .WORD 2 
6875 062162 017716 “WORD EDDDE 
6876 062164 023340 ~WORD ERR1 
6877 062166 005201 INC R1 
6878 062170 005203 INC R3 
6879 062172 005237 010162 CMPS6: INC OF SET SINC OFFSET 
6880 062176 905304 DEC R4 TELSE DEC CHAR COUNT AND SEE IF 0 
6881 062200 01339 BNE CMPS1 ;1f NOT GO BACK 
6882 062202 5737 010174 TST TEMP4 sSEE IF ANY CMP ERRS FOR THIS MSG 
6883 062206 001410 BEQ CMPSSA °BR IF NONE 
6884 062210 005237 010124 INC ERRCNT 
6885 000003 ENUM = “D<ENUM+1> ; INCREMENT ERROR NUMBER 
6886 062214 ERRSOFT ENUM,EDDDE,ERR2 :REPORT # OF MISMATCHES FOR MESSAGE 
6887 062214 104457 TRAP CSERSOFT 
6888 062216 000003 WORD 3 
6889 062220 017716 "WORD EDDM 
6890 062¢ 2 023402 "WORD = ERR? 
6891 062224 00473 024346 CMPSS: JSR PC,LOGCMD :L0G DATA ERROR IN COMPARE 
689 06¢¢ 0 CMPS5A: 
6893 062230 005337 010110 DEC DVRCT 
6894 062234 001267 BNE CMPS3 ;1F NOT ALL DONE GO BACK 
6895 062236 000400 BR CMPSEX SBRANCH TO END OF PASS CODE 
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SEQ 204 
CZKMSAO_KMS11 meh ti Rott S54 MACY11 30A(1052) 23-DEC-82. 14:01 PAGE 205 


CZKMSA.P11 -DEC- INTERNAL END OF PASS CODE 
6897 .SBITL NTERNAL END OF PASS COD 
6897 1 LE $ CODE 
6899 
6900 ; 
6901 : FUNCTIONAL DESCRIPTION: 
690 : THIS CODE INCREMENTS THE PASS COUNT FOR THE 
690 : EVENT LOG. LOGS THE END OF PASS VENT 
6904 : IF “'RPASS” IS A MINUS ONE RETURN T0 MODE 
6905 : DISPATCHER. If NOT -1 THEN DECREMENT PASS 
6906 : AND IF “'RPASS' IS THEN = TO T0 pet T PROMPT 
6907 ; IN NOT = TO 0 THEN GO BACK TO MODE DISPATCHER 
6909 < SUBORDINATE ROUTINES USED: 
eat : “LOGEOP' = LOG END OF PASS TO EVENT LOG 
691 ‘ 
694 062240 005237 010122 CMPSEX: INC PSCNT BUMP PASS COUNT 
6916 062244 013737 010116 010174 MOV OPVAR, TEMP4 :LOG NO BUFFS 
6917 062252 013737 010122 010170 MOV PSCNT TEMPS, ‘LOG PASS COUNT 
6918 062260 013737 010124 010172 MOV ERRCNT, TE 
6919 062266 004737 024372 JSR SRR NEOP [LOG END OF PASS 
6921 062272 022737 177777 010226 CMP #-1,RPASS 3 SEE IF RPASS==1 
6922 062300 001403 BEQ 1$ ‘TF IT 1S DON'T DECREMENT, LOOP FOREVER 
6923 062302 005337 010226 DEC RPASS “DEC PASS COUNT 
6924 062306 001402 BEO 2$ SIF DONE GOTO DCLT> PROMPT 
6925 062310 000137 060606 1$: JMP GTRK2 “ELSE GO BACK AND DISPATCH 
6926 062314 004737 064020 2$: JSR PC ,HLTTRB 360 HALT ALL LINES BEFORE, GOING, BACK 
6927 062320 000137 054512 MP GTRAS “WHEN RPASS=0 GO BACK TO ‘‘DCLT 
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SEQ 205 
CZKMSAO KMS11-BD/BE DCLT MACY11? 30A(1052) 23=DEC-82 14:01 PAGE 206 
CZKMSA.P11 25-DEC=“82 13:54 DOWN=LINE*LOAD SECTION 
6330 ~SBTTL DOWN-LINE=LOAD SECTION 
693 :* 
693 : FUNCTIONAL DESCRIPTION: 
6934 : DOWN-LINE=LOAD SECTION Z 
6935 3 S MODE OF TESTING THE ‘'HOST’’ OR ORIGINATING STATION 
6936 ; REQUESTS THE ‘‘SATELLITE’’ OR BOOT STATION TO ENTER M ODE. 
6937 3 THE BOOT STATION THEN SENDS “REQUEST PROGRAM MESSAG , 
6938 : T OST'' THEN SENDS A ‘MEMORY LOAD WITH TRANSFER ADDRESS" 
6939 ; THAT CONTAINS IMAGE DATA 19 BE LOADED BY THE BOOT STATION'S 
6940 3 DMP=-11 FIRMWARE STARTING A 0. THIS IMAGE DATA WILL CONTAIN A 
or) : PROGRAM THAT WILL PRINT A mst THAT DOWN-LINE*LOAD WAS SUCESSFUL. 
oeer ; SUBORDINATE ROUTINES USED: 
6945 : “DLTXRX'' = SPECIAL TX RX ROUTINE FOR DLL 
6946 ; "“DVRXQ"' = QUE RX BUFFER SPACE TO DEVICE 
6947 : **LOGRXQ’’ = LOG RX SPACE QUED TO EVENT LOG 
6948 3 *LOGTXQ’’ = LOG TX BUFFER QUED TO EVENT LOG 
6949 : "DVTXRX'' = QUE TX BUFFER AND WAIT FOR RX OR TX TO COMPLETE 
6950 3 "LOGTXC’’ = LOG TX COMPLETED TO EVENT LOG 
$32) : “LOGRXC'’ = LOG RX COMPLETED TO EVENT LOG 
6953 : CALLING SEQUENCE : 
334 : MODE (R2) DISPATCH TO MODE BASED ON MODE TYPE IN R2 
6956 
6957 
6958 062324 DLL: 
6959 062324 PRINTF #DLLQ1 PRINT DOWN LINE LOAD NOT SUPPORTED 
6960 062324 012746 015457 MOV #DLLQ1,-(SP) 
6961 062330 012746 000001 MOV #1,-(SP) 
6962 062334 010600 MOV SP,RO 
6963 062336 104417 TRAP CSPNTF 
6964 062340 062706 000004 ADD a4 ,SP 
$265 062344 000137 054512 JMP GTRAS sEXIT 


CZKMSAO parr 


CZKMSA.P11 


062444 
062450 


062516 


062522 
062530 
062536 
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1$: 


2$: 


3$: 
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23=DEC-82 14:01 PAGE 207 
TALK MODE SECTION 


BNE 
GMANID 


S MODE, THE tah END OF TH 
SPECIFIED MESSAGES UNTIL A ‘EX! 
THIS END OF THE LINK GOES INTO "LI 


SUBORDINATE ROUTINES USED: 


TALK MODE SECTION 


FUNCTIONAL L DESCRIPTION: 


SECTIO 
NK _TRANSMiTS OPERATOR 
AGE IS TYPE. AT THAT POINT, 


E tl 
"MESS 
STEN 


““LOGTXQ"' = LOG TX BUFFER QUED TO E 
"DVTXRX'’ = QUE TX BUFFER TO DEVICE 
“LOGTXC’’ = LOG TX COMPLETE TO EVEN 


v 


ENT LOG 
AND WAIT FOR COMPLETE 
T LOG 


scenes Zeuenes : 


MODE (R2) ;DISPATCH TO MODE BASED ON MODE TYPE IN R2 

#-1, INDEX 

PC,GTVIND sGET FIRST LINE 

#DATCKB. PARAM :SET NOCHECK 

#OPBUF ,R2 

#-1, Rd) e :CLEAR OUT OPBUFFER FIRST 

#OPEND, +R2 

OPRMM, OPBUF ,A,377,1,72..NO :GET TALK MESSAGE 
TRAP — C$GMAN 
BR 0001$ 


“WORD T$LOLIM 
“WORD TSHILIM 


R2 sNOW GET CHAR COUNT 
cs"? Paet ne? 


R2 
2$ 
R2,OPCNT 


#OPBUF .DVTXA = SET _UP TX ADDR, 

#OPBUF . TEMP2 

OPCNT, TEMP3 

OPCNT VTC :SET UP TX CC 

POTK*ETX FLAG ; TRANSMIT QUEUED, EXPECT TRANSMIT COMPLETE. 
CPTRR [CLEAR RX POINTER 


PC ,DVTXRX 
DVIXA, Mj 


DVICC, TEMPS 
PC ,LOGTXC 


SEQ 206 


B 1 


SEQ 207 
CZKMSAO KMS11-BD/BE DCLT MACY11 30A(1052) 23-DEC-82 14:01 PAGE 208 
KMSA.P11 3=DEC-B82 13:54 TALK MODE SECTION 
7025 062542 0622737 054105 002520 CMP #EX, OPBUF sCHECK FOR EXIT 
7026 062550 001277 BNE ALCK 
7027 062552 022737 052111 002522 CMP #’'1T, OPBUF +2 
7028 062560 001273 BNE TALCK 
7009 062562 042737 000210 010230 BIC MOTX*ETX,FLAG |; TRANSMIT QUEUED, EXPECT TRANSMIT COMPLETE 
7030 062570 012737 000006 010216 MOV #LIS,MODT YP SCHANGE TO LISTEN MODE 
7031 062576 000137 060606 JMP GTRX2 SAND GO BACK TO DISPATCH 


S 7 


SEQ 208 
CZKMSAO KMS11- D/BE DCLT MACY11 30A(1052) 23=DEC-82 14:01 PAGE 209 
CZKMSA.P11 23=DEC=82 13:54 LISTEN MODE SECTION 
708 ~SBTTL LISTEN MODE SECTION 
7034 44 
7035 3 FUNCTIONAL DESCRIPTION: 
7036 : LISTEN MODE SECTIO 
7037 ; IN THIS MODE, THE "LISTEN END OF THE LINK PRINTS ALL OF THE MESSAGES 
7038 : RECEIVED BY ‘HE DEVICE ON THE OPERATOR'S CONSOLE. IF THE MESSAGE 
ie? ; RECEIVED IS AN "EXIT’’ MESSAGE, THEN THE NODE ENTERS ‘‘TALK'’ MODE. 
od | : SUBORDINATE ROUTINES USED: 
7043 : “DVRXQ"! = QUE RECEIVE BUFFER SPACE TO DEVICE 
7044 ; "LOGRXQ'' = LOG RECEIVE SUFFER QUED TO EVENT LOG 
7045 ; ‘DVTXRX'’ = WAIT FOR RX TO COMPLETE 
ee8 : “LOGRXC"' = LOG RX COMPLETE TO EVENT LOG 
7048 : CALLING, SEQUENCE: 
Air 3 MODE (R2) sDISPATCH TO MODE BASED ON MODE TYPE IN R2 
7051 F 
7052 062602 012737 177777 007642 LISCK: MOV #-1, INDEX 
7053 062610 004737 030402 JSR PC,GTVIND :GET FIRST LINE 
7054 062614 042737 000002 010224 Bic #DATCKB,PARAM ;CLEAR CHECK BIT 
7055 062622 Af PRINTF #LISP :PRINT PROMPT FOR OPR. 
7056 062622 012746 016535 MOV #LISP,-(SP) 
7057 062626 012746 000001 MOV #1,-(SP) 
7058 062632 010600 MOV SP.RO 
7059 062634 104417 TRAP CSPNTF 
7060 062636 062706 000004 ADD a4 ,SP 
062642 012737 002520 010104 LISCKA: MOV #OPBUF ,DVRXA :SET DEVICE UP TO REC AT OPBUF 
7062 062650 012737 002520 010170 MOV #OPBUF . TEMP2 
7063 062656 012737 000122 010106 MOV #82. ,DVRCC :SET UP CHAR COUNT TO 82. 
7064 062664 012737 000122 010172 MOV #82., TEMPS 
7065 062672 052737 000104 010230 BIS MORY*ERX,FLAG  ;SET UP FLAG 
2066 062700 005037 010154 CLR CPTR SCLEAR THE TX. 
7068 062704 004737 064174 JSR PC,DVRXQ yQUE RX 
7069 062710 004737 024200 Jon PC,LOGRXQ 
«ta 062714 004737 064340 JSR PC,DVTXRX G0 TO DEVICE RX. SUBROUTINE 
7073 052720 013737 010104 010170 MOV DVRXA, TEMP2 
7074 062726 013737 010106 010172 MOV DVRCC, TEMPS :SET UP ADDR.AND CC. 
7075 062734 004737 024216 JSR PC, LOGRXC [LOG COMPLETED 
7076 062740 063737 010104 010106 ADD DVRXA,DVRCC 
7077 062746 105077 125134 CLRB = avr 
7078 062752 PRINTF #OPBFPT 
7079 062752 012746 002514 MOV #OPBFPT,-(SP) 
7080 062756 012746 000001 MOV #1,-(SP) 
7081 062762 010600 MOV SP,RO 
7082 062764 104417 TRAP CSPNTF 
7083 062766 062706 000004 : 2 ADD . 
0 062772 022737 054105 002520 CMP #"EX ,OPBUF COMPARE FOR EX OF ok Mr 
7085 063000 001320 BNE LISCKA s1F NOT EXIT THEN G 
7086 063002 022737 052111 002522 CMP #11 ,OPBUF +2 :1f FIRST HALF OK -gHecR CKext PART 
7087 063010 001314 BNE LISCKA s1F NOT EXIT THE G 


1 
, SEQ 209 


CZ2KMSAO KS 11-80/BE DCLT MACY11 30A(1052) 23-DEC-82 14:01 PAGE 210 
CZKMSA.P11 23-DEC-82 13:54 LISTEN MODE SECTION 
7088 063012 012737 000005 010216 MOV #TAL MODTYP sCHANGE MODE TO TALK 
2089 063020 000137 060606 JMP GTRX2 TRETURN TO DISPATCHER». 


7091 


ee 


SEQ 210 
CZKMSAO KMS11-BD/BE DCLT MACY11 30A(1052) 23-DEC-82 14:01 PAGE 211 
CZKMSA.P11 235=DEC “82 13:54 LISTEN MODE SECTION 
709 
aad, ~SBTTL DVINIT = DEVICE INITIALIZATION 
7095 
7096 hy 
7097 : FUNCTIONAL DESCRIPTION 
7098 : DVINIT HIS SUBROUT INE STARTS THE KMS11-BD, TRANSFERS LINE, MODEM 
7099 : ANG LOOPBACK PARAMETERS TO THE DEVICE, AND THEN REQUESTS 
£190 : THE KMS11-BD TO STARTUP A DDCMP LINK. 
£108 : INPUTS: 
710 : MLTYP = LOOPBACK PARAMETER 
7104 ; MODCSR = MODEM CSR ADDR =35, 
7105 : TRIBN = ESTABLISHED LINE NUMBER 
£188 ; BDLBAS = ADDRESS OF BUFFER DESCRIPTION LIST 
7108 : OUTPUTS: 
7169 ; NONE 
7110 ; 
7111 : SUBORDINATE ROUTINES USED: 
7112 : LOGEO REPORT AND LOG TIMEOUT WAITING FOR K 
7113 3 TOORIO REQUEST INPUT INTERRUPT. WAIT FOR INTERRUPT OR TIME OUT 
7114 : TOORO WAIT FOR OUTPUT INTERRUPT OR TIMEOUT 
g1i9 : GTVIND GET ESTABLISHED LINE NUMBER COPIED TO TRIBN 
7117 ; CALLING SEQUENCE: 
7112 3 JSR PC,DVINIT 
7119 ie 
7120 
7121 063024 DVINIT: 
7122 
7123 
ose sREJECT DOWN LINE LOAD REQUEST 
7126 063024 022737 000004 010216 CMP #D0W, MODTYP ;SEE IF DOWN-LINE=LOAD (NOT SUPPORTED) 
7127 063032 001002 BNE DVINOO , : BR IF NOT, ELSE EXIT TO PRINT MSG 
Ags 063034 000137 063702 JMP DVINEX 
no START KMS 
7132 063040 012737 001000 010270 DvINOO: MOV 4 ng § TIMER sSET TIMER 
7133 063046 005077 130320 CLR ‘HALT KMS TO ENSURE CLEAN STARTUP 
7134 963052 012777 040000 13031 MOV mac aseLo [MASTER CLEAR 
7135 3060 112777 000377 13031 MOVB #377, aBSEL2 :SPECIFY KMS NOT RUNNING 
7136 3 (KMS CLEARS BSELZ WHEN STARTED) 
7137 063066 012777 100000 130276 MOV #KRUN,@SELO :SET RUN BIT TO S KMS 
7138 ;WAIT FOR KMS TO START 
7139 063074 105777 130276 DVINO: TSTB aBSEL2 31S KMS RUNNING ? 
ae 063100 001416 BEQ 10$ SYES. CONTINUE 
7142 063102 BREAK NO. ALLOW CTRL/C EXIT SHILE WAITING 
7143 063102 104422 C$BRK 
7144 063104 005737 010270 TST TIMER sHAS TIME EXPIRED ? 
rie? 063110 001371 BNE DVINO [NO. CHECK AGAIN 
7147 REPORT KMC NOT STARTED 
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012737 


005077 
142777 


004737 


000020 


065622 
000400 


000377 
000001 


010164 
065422 
177757 


000001 


065422 


177757 
000007 
013426 
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010170 


010230 
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130202 


130164 
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F 1 


fats 82 14:01 PAGE 
NIT = DEVICE INITIALTZ 


MOV gover TEMP2 


JSR OGEO 
ENUM = “D<ENUM M+1> 
ERRSOFT ENUM,DVEMO,ERR13. 


212 SEQ 211 
ATION 


; TIME le or’ PRINT ERROR MESSAGE 
LOG TIME OUT WAITING FOR RUN 
; INCREMENT ERROR NUMBER 
RECORD ERROR 


TRAP CSERSOFT 
«WORD 4 

«WORD DVEMO 
«WORD ERR15 


RETRY KMS STARTUP 
sNEGATE ‘STATUS DATA VALID*’ 


ZASSERT READ STATUS ENABLED 
;CLEAR INTERRUPT INSICATORS 


SYSTEM INITIALIZATION (COMMA:ID PAIR 0,0) 


s SPECIFY WAITING FOR INITALIZATION 


ies ye ISSION 
TO SEND — D KMS 
;PERMISSION GRANTED TO sc emhOe 


SPECIFY COMMAND P 
TERS 

DY TO nag 4 COMMAND 

sige —— ION 

IZATION COMPLETED ? 

IALIZATION 


SPECIFY LOOP PARAMETER 


BR DVINOO 
10$: 
CLR VSTAT 
INC ENRDST 
BIC #ININT*OTINT, FLAG 
DVINI: 
sSPECIFY 
BIS #INITC, FLAG 
JSR PC, TOORIO 
BIC #177757 ,aSEL2 
CLR aSEL4 
CLR aSEL6 
BICB #RDYI,aBSEl.2 
JSR PC, TOORO 
BIT #INITC, FLAG 
BEQ DVIN2 
BR DVINI 
DVIN2: 
MOV #377, TEMP 
CMP #1,MLTYP 
BNE o$ 
CLR TEMP 
10$: 
JSR PC, TOORIO 
BIC #177757, aSEL2 
BISB #142,aBSEL2 
MOV #KMLTYP,aSEL4 
MOVB _—sCrTEMP, aBSE 
BICB  #RDVL,aBSEL2 
CMP 1,MLTYP 
BEQ ¢ 
s SPECIFY 
JSR PC, TOORIO 
BIC #177757 ,aSEL2 
BISB #7,aBSEL2 
OV MODCSR,a@SEL4 


ASSUME INTERNAL LOOPBACK NEGATED 
[1S INTERNAL LOOPBACK eee ee : 


CORREC 
SPECIFY INTERNAL LOOPBACK ASSERTED 
:GIVE DEVICE INTERNAL LOOPBACK MODE SPECIFIER 
QUEST PERMISSION TO SEND COMMAND 
:PeRMissiON wey Dd 


A 
Y 
Y 
Y 
Y 
ERN. 


31S INTERNAL LOOPBACK SPECIFIED ? 
TYES. OMIT SPECIFYING MODEM CONTROLLER ADDRESS 


MODEM CONTROLLER (DM-11) CSR ADDRESS 


REQUEST PERMISSION TO SEND TO FIRMWARE 
: PERMISSION GRAN TED 

:CLEAR ALL BUT RDYI 

?SPEC:FY COMMAND PAIR (0,7 

>SPECIFY DM11-BA CSR ADDRESS 


6 1 
SEQ 212 
CZKMSAO KMS11-BD/BE DCLT MACY11 30A(1052), 23- “DEC“82 14:01 PAGE 213 
CZKMSA.P11 23=DEC-B2 13:54 VINIT = DEVICE INITIALIZATION 
7204 063352 005077 130030 CLR aSEL6 SCLEAR SEL6 
7205 063356 142777 000020 130012 BICB  #RDYI,aBSEL2 SASSERT READY TO TRANSFER COMMAND 
7207 063364 20$: 
1208 ;SPECIFY BDL SASE ADDRESS 
7210 063364 004737 065422 JSR PC, TOORIO *REQUEST PERMISSION TO SEND COMMAND 
7211 sPERMISSION GRANTED 
rele 063370 042777 177757 130000 BIC #177757,aSEL2 sCLEAR ALL BUT RDYI 
7213 063376 152777 000006 127772 BISS #6, aBSEL2 [SPECIFY COMMAND PAIR (0,6) 
7214 063404 012777 013434 127770 MOv #BOLBAS,,aSEL4 ;SPECIFY BDL BASE ADDRESS 
7215 063412 005977 127770 CLR L ‘CLEAR HIGH ADDRESS BITS (BITS 17:16) 
7216 063416 142777 000020 127752 BICB  #RDYI,aBSEL2 SASSERT READY TO TRANSFER COMMAND 
7218 sSPECIFY ESTABLISHED LINE NUMBER 
get GET ESTABLISHED LINE NUMBER 
7221 063424 012737 177777 007642 MOV #-1, INDEX MAKE INDEX =-1. DO FOLLOWING FOR EACH LINE.. 
7222 NDEX=-1 TO 8. LINE 0 FIRST, LINE 7 LAST 
7223 063432 004737 030402 DVES1: JSR PC,GTVIND ‘GET VALID INDEX (NEXT LINE NUMBER TO ESTAB.) 
7224 063436 022737 000010 007642 CMP #8., INDEX ‘DONE? 
7205 063444 001516 BEQ DVINEX [IF SO EXIT (RETURN TO CALLER) 
7227 : SPECIFY LINE NUMBER 
7228 063446 004737 065422 JSR PC, TOORIO Quest PERMISSION TO TRANSFER COMMAND 
7229 sPERMISSION GRAN TED 
7230 063452 042777 177757 127716 BIC #177757,aSEL2 sCLEAR ALL EXCEPT RDYI 
7231 063460 152777 000004 127710 BISB #4,aBSEL2 :SPECIFY COMMAND (0,4) 
7232 063466 005077 127710 CLR aSEL4 [CLEAR SEL . 
7233 063472 013737 007636 010164 MOV TRIBN, TEMP ‘COPY LINE N 
7234 063500 013777 010164 127700 MOV TEMP ,a@SEL6 “SPECIFY SUMOER OF LINES TO SCAN 
7239 063506 142777 000020 127662 BICB = #RDYI, aBSEL2 :SPECIFY READY TO TRANSFER COMMAND 
1237 sENABLE LINE 
7239 063514 004737 065422 DVEST: JSR PC, TOORIO REQUEST PERMISSION TO SEND COMMAND 
7240 : PERMISSION GRAN NTED 
7241 063520 042777 177757 127650 BIC #177757, aSEL2 sCLEAR ALL EXCEPT RDYI 
7242 063526 152777 000040 127642 BISB #40,aBSEL2 : SPECIFY COMMAND PAIR (1,0) 
7243 063534 113777 007636 127636 MOVB _—*TRIBN, @BSEL3 :SPECIFY LINE NUMBER 
7244 063542 005077 127634 CLR aSEL4 [CLEAR SEL4 
7245 063546 005077 127634 CLR aSEL6 [CLEAR SEL6 
eue 063552 142777 000020 127616 BICB #RDYI.aBSEL2 ZASSERT READY TO TRANSFER COMMAND 
7248 :SET DDCMP MODE 
7250 063560 004737 065422 DVSET: JSR PC, TOORIO REQUEST {PERMISSION TO SEND COMMAND 
7251 : PERMISSION GRAN TED 
7252 063564 042777 177757 127604 BIC #177757,aSEL2 sCLEAR ALL EXCEPT 
7253 063572 152777 000001 127576 BISB ft >SPECIFY COMMAND Pain. (0,1) 
7254 063600 113777 007636 127572 MOVB TRIBN, QBSEL3 [SPECIFY LINE N ER 
7255 063606 052737 001000 010230 BIS #SETC.FLAG SINDICATE WAITING FOR SET DDCMP MODE COMPLETION 
7256 063614 042737 004000 010230 BIC #TXTO.FLAG SCLEAR TRANSMIT TIMEOUT SPECIFIER 
7257 063622 005077 127554 CLR aSEL4 SCLEAR SEL4 
7258 063626 005077 127554 CLR asSELé [CLEAR SEL6 
7259 063632 142777 000020 127536 B1(B PRY] -ABSEL2 TASSERT READY TO TRANSFER COMMAND 


SEQ 213 
CZ7KMSAO_KMS11-BD/8 
23-DEC- 


LT MACY11 30A(1052) 23=DEC-82 
CZKMSA.P11 1 DVINIT E 


1 
- DEVIC 


.” oe 
pated 
mo 


065622 
001000 010230 


4 DCMP MODE COMPLETION 
5 

i 004000 010230 

5 


MESSAGE OCCURRED ? 


D 

N 

MEOUT ON TRANSMIT ? 

he UEST TO START PROTOCOL 


0 ;WAIT FOR 
L MP 

; CON 

FLAG :D1D DEVI 
REI 
KEEP 


N 

nm 

o 

oO 

o 

wa 

o 

wn 

nw 
(mlolol~lol—) 
wooavwwe 
DZ-M- 

no=mr 


7267 065666 15$: 


7269 Aa TO COMPENSATE FOR THE FIRMWARE'S FAILURE TO ACKNOWLEDGE 
7270 A STACK MESSAGE RECEIVED. 


7272 063666 0 1 010274 MOV a1, TInens ;WAIT 1 SECOND 
7273 =063674 8 4 208: ane page RS 21S S TIMER EXPIRED ? 
0 DVINEX: RTS PC ?RETURN TO CALLER 
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SEQ 214 
CZ7KMSAO KMS11-BD/ Be DCLT MACY11 SOA 1052) 23-DEC-82 14:01 PAGE 215 
CZKMSA.P11 23=DEC-82 13:54 NSTAT = GET LINE STATUS 
7283 .SBTTL LNSTAT = GET LINE STATUS 
7284 
285 
7265 :¢ 
7287 ; FUNCTIONAL DESCRIPTION: 
7288 ; LNSTAT = IF READ LINE STATUS IS ENABLED THIS SUBROUTINE REQUESTS 
7289 : THE KMS TO REPORT THE VALUES OF THE FIRST EIGHT BYTES IN 
1630 ; THE LINE STATUS TABLE FOR THE ESTABLISHED LINE. 
729 3: INPUTS: 
729 3 ENR READ STATUS ENABLED IF <> 0 / DISABLED IF = 0 
Ieee ; TR NBN ~ “ES STABLISHED LINE NUMBER 
7296 : OUTPUTS: 
7297 : IF STATUS REPORT COMPLETED SUCCESSFULLY THEN 
7298 : VSTA SET = 1 TO SHOW THAT STATUS DATA IS VALID 
444 : Nevs1. .DEVSé - EIGHT avics OF LINE STAUS DATA FROM KMS 
7301 : SUBORDINATE ROUTINES USED: 
7302 : TOORIO REQUEST INPUT INTERRUPT. WAIT FOR INTERRUPT OR TIME OUT 
fear : TOORO WAIT FOR OUTPUT INTERRUPT OR TIMEOUT 
7305 : CALLING SEQUENCE: 
7306 3 JSR PC, LNSTAT 
7307 pee 
7308 
7309 063704 LNSTAT: REQUEST LINE STATUS 
7310 063704 005737 011512 TST ENRDST 3s READ STATUS ENABLED ? 
7311 063710 001442 BEQ 408 :NO. OMIT READING STATUS 
7312 063712 004737 065422 108: JSR PC, TOORIO REQUEST PERMISSION TO SEND COMMAND 
7313 PERMISSION GRANTED 
7314 063716 052737 002000 010230 BIS #STAT, FLAG SPECIFY WAITING FOR STATUS REPORT 
7315 063724 042777 177757 127444 BIC nyrys ica aSEL2 :CLEAR ALL BUT RDYI 
7316 063732 152777 000140 127436 BISB #BIT6*BITS, SBSEL2 SPECIFY REQUEST LINE STATUS (3,0) 
7217 063740 113777 007636 127432 MOVB TRIBN,@BSEL3 s SPECIFY LINE 
7318 063746 142777 000020 127422 BICB #RDYI, SBSEL2 : INDICATE READY to TRANSFER COMMAND 
7319 sWAIT FOR STATUS TO BE RETURNED 
7320 063754 004737 065622 20$: JSR PC, TOORO WAIT FOR MESSAGE FROM DEVICE 
7321 :MESSAGE RECEIVED 
7322 063760 032737 002000 010230 BIT #STAT,FLAG DID A STATUS REPORT OCCUR ? 
7323 063766 001372 BNE 208 sNO.KEEP WAITING 
324 063770 052737 002000 010230 BIS @STAT, FLAG SPECIFY WAITING FOR STATUS REPORT 
325 063776 004737 065622 30$: JSR PC, TOORO sWAIT FOR SECOND HALF OF status REPORT 
7326 064002 032737 002000 010230 BIT #STAT, FLAG sDID A STATUS REPORT OCCUR 
7327 064010 001372 BNE 30% NO. KEEP WAITING 
7328 064012 005237 011514 INC VSTAT sASSERT VALID STATUS DATA 
7329 064016 000207 40$: RTS PC sRETURN 
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SEQ 215 
CZKMSAO KMS11- ot psut MACY11 30A(1052) 23-DEC-82 14:01 PAGE 216 
CZKMSA.P11 25=DEC=82 13:54 HALT LINE SUBROUTINE 
£330 ~SBITL HALT LINE SUBROUTINE 
7332 
7333 : "FUNCTIONAL met IPTION: 
reee 3 HLTTRB = THIS S UBROUT INE SHUTS DOWN THE ESTABLISHED LINE 
7336 : INPUTS: 
7337 : PARAM = PARAMETERS. THIS ROUTINE CHECKS THE DATCKB BIT 
7338 ; TRIBLS = ESTABLISHED LINE NUMBER 
ety 4 : FLAG = BITS ININT AND OTINT INDICATE INTERRUPTS 
7341 3; SUBORDINATE ROUTINES USED: 
7342 : GTVIND COPY VALID LINE NUMBER TO TRIBN 
7343 : TOORIO REQUEST INPUT INTERRUPT. wall FOR INTERRUPT OR TIME OUT 
Tete 3 OUTHDL HANDLES OUTPUT INTERRUPT DAT 
7346 3 CALLING SEQUENCE: 
7347 3 JSR C,HLTTRB 
re3 in 
7350 064020 032737 000002 010224 HLTTRB: BIT #DATCKB, PARAM 
7351 064026 001006 BNE HLTTR2 sIF CHECK GO TO 2 
7352 064030 012737 000002 010274 MOV we, ae SET UP FOR 2 gee TIMER 
7353 064036 005737 010274 HLTTR3: TST 
7354 064042 001375 meTaR’ sWAIT FOR TIMER TO BE O 
tee? 064044 HLTTR2: 
414 sSHUTDOWN ACTIVE LINE. ONLY THE 1ST ESTABLISHED LINE IS USED 
7359 064044 012737 177777 007642 MOV #-1, INDEX 
7360 064052 004737 030402 HLTTR1: JSR PC,GTVIND 3GET 1st ESTABLISHED LINE NUMBER 
7361 064056 022737 000010 007642 CMP #8., INDEX : Is THERE AN ACTIVE LINE ? 
7362 064064 001422 BEQ HLTREX NO. EXIT 
7363 ;SPECIFY” SET DOWN LINE COMMAND PAIR 
7364 064066 004737 065422 JSR PC, TOORIO REQUEST PERMISSION TO SEND COMMAND TO FIRMWARE 
7365 : PERMISSION GRANTED 
7366 064072 042777 177757 127276 BIC #177757, aSEL2 sCLEAR ALL EXCEPT 
7367 064100 152777 000042 127270 BISB #42 ,aBSEL2 :SPECIFY COMMAND Gt >} IN BITS 6:5,2:0 
7368 064106 113777 0076345 127264 MOVB TRIBN,@BSEL3 SSPECIFY LINE NO. 
7369 064 005077 127262 CLR aSEL4S sCLEAR SEL 
7370 064120 005077 127262 CLR aSEL6 CLEAR SEL6 
rer 064124 142777 000020 177244 31CB #RDYI ,ABSEL2 s INDICATE READY TO TRANSFER COMMAND 
7373 =4164132 032737 000003 010230 HLIREX: BIT #ININT*OTINT, FLAG HAVE ANY INTERRUPTS OCCURRED ? 
7374 064140 001411 BEQ 108 3NO. 
7375 064142 042737 000003 010230 BIC #ININT¢OTINT, FLAG YES. CLEAR INTERRUPT INDICATORS 
7376 064150 132777 000200 127220 BITB #RODYO, aBSEL2 1S THERE A MESSAGE FROM THE KMS ? 
7377 +064156 001402 BEQ 1 3NO 
7378 064160 004737 066040 JSR PC ,OUTHDL sYES. COLLECT IT Hh Witt BE THROWN 
7379 3 AWAY SINCE CLNSET = =1) 
7380 064164 142777 000020 127204 10$: BICB #RDYI,ABSEL2 IGNORE RDYI 
7381 064172 000207 RTS PC sRETURN 
7382 
7383 
7384 
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SEQ 216 
CZKMSAO KMS11-BD/BE DCLT MACY11 30A(1052) 23-DEC-82 14:01 PAGE 217 
CZKMSA.P11 23-DEC “82 13:54 DEVICE QUEUE RECEIVE SPACE SUBROUTINE 
7386 .SBITL DEVICE QUEUE RECEIVE SPACE SUBROUTINE 
7388 se¢ 
7389 ; FUNCTIONAL DESCRIPTION: 
7390 ; DVRXQ = THIS SUBROUTINE QUES THE REC BUFFER SPACE TO THE 
7391 : DEVICE, THEN CLEARS THE QRX BIT OF THE FLAG WORD. 
739 : INPUTS: 
739 ; DVRXA = ADDRESS 4g RX BUFFER SPACE 
7394 ; DVRCC = BYTE CHAR COUNT OF RX BUFFER 
7395 : QRX FLAG BIT = SET BY CALLING ROUTINE 
7396 : TRIBN = LINE WHICH RECEIVE BUFF IS TO BE QUEUED FOR 
7397 : OUTPUT 
7398 : ORX FLAG BIT = CLEARED BY ROUTINE 
7400 ; SUBORDINATE ROUTINES USED: 
7402 : CALLING. SEQUENCE: 
7403 ; PC ,DVRXQ 
7404 i-- 
7405 
7406 064174 DVRXQ: 
7407 064174 032737 000004 010230 BIT WORK, FLAG sRX QUEUED 
7408 064202 001455 BEQ DVREX SIF WO! RX, THEN EXIT 
2410 064204 042737 000004 010230 BIC #ORK,FLAG [CLEAR FLAG FOR RX QUEUED 
7412 
7413 064212 013702 007636 MOV TRIBN,R2 :GET CHANNEL NUMBER (WHICH IS MEMBER NUMBER) 
7414 064216 006302 ASL R2 ‘MULTIPLY BY 8 
7415 064220 006302 ASL R2 : FOR OFFSET IN TABLE FOR THIS BDL MEMBER 
7416 064222 006302 ASL R2 (8 BYTES PER MEMBER IN TABLE) 
7417 064224 02 013434 ADD #RKRDL, 4h? STABLE ADDRESS FOR RECEIVE BDL MEMBERS 
7418 064230 010237 013432 MOV R2,BD: MAD SCALCULATE BDL MEMBER ADDRESS, SAVE AT BDLMAD 
7419 064234 013737 007636 013430 MOV TRIBN. SDLMNM §:SAVE THE CHANNEL NUMBER, BDL MEMBER NUMBER 
7420 064242 005237 013430 - INC BOLMNM ; CALCULATE BDL MEMBER NUMBER (CHAN * 1) 
7421 RANGE IS NOW 1-8 FOR CHAN 0-7 
7422 x :LOAD BUFFER DESCRIPTOR LIST MEMBER 
7423 064246 012722 100000 MOV WBIT75,(R2)* | :SET STATUS WORD IN BDL MMBR BLOCK (RX QUEUED) 
7424 064252 013722 010104 MOV DVRKA, (R2)+ SDVRXA CONTAINS THE RECEIVE BUFFER ADDRESS 
7425 064256 013722 010106 MOV DVRCC.(R2)+ SDVRCC CONTAINS LENGTH OF THAT BUFFER 
7426 064262 005022 CLR (R2)+ [CLEAR DDCMP MESSAGE NUMBER FIEL 
7427 :SPECIFY BDL MEMBER FOR RECEIVE BUFFER 
7428 064264 004737 065422 JSR PC, TOORIO REQUEST PERMISSION TO SEND COMMAND TO FIRMWARE 
7429 “PERMISSION GRANTED 
7430 064270 042777 177757 127100 BIC #177757.aSEL2 :CLEAR ALL EXCEPT RDYI 
7431 064276 152777 000101 127072 BISB #101,aBSEL2 :SPECIFY COMMAND PAIR (2,1) 
7432 064304 113777 007636 127066 MOVB TRIBN, aBSEL3 [SPECIFY LINE NUMBER 
7433 064312 005077 127064 CLR aSEL4 *CLEAR SEL4 
7434 064316 105077 127064 CLRB = @BSEL6 [CLEAR BSEL6 
7435 064322 113777 013430 127060 MOVB  BDLMNM, @BSEL7 [SPECIFY BDL MEMBER NUMBER 
7436 ‘BDL MEMBER NUMBER RANGE IS 1-8 
1437 064330 142777 000020 127040 BICB #RDYI,aBSEL2 SASSERT READY TO TRANSFER COMMAND 
7439 064336 000207 DVREX: RTS PC sRETURN TO CALLER 
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SEQ 217 
CZKMSAO KMS11-BD/BE DCLT MACY11 30A(1052) 23-DEC-82 14:01 PAGE 218 
CZKMSA.P11 23=DEC=82 13:54 DEVICE TRANSMIT AND RECEIVE SUBROUTINE 
ee} .SBITL DEVICE TRANSMIT AND RECEIVE SUBROUTINE 
7463 :¢ 
7444 ; FUNCTIONAL aDESCRIPTION: 
7465 ; DVTXRX=DEVICE TRANSMIT AND RECEIVE ROUT 
7446 : THIS CODE QUEUES THE TRANSMIT BUFFER TO The DEVICE (IF NEEDED). 
7447 : THE CODE THEN WAITS FOR A TX COMPLETE, AN RX COMPLETE OR A 
7448 : RETRANSMIT REQUEST. THE CODE REPORTS A TIME OUT ERROR IF NONE 
7449 ; OF THESE IS REPORTED BACK IN 60 SECONDS. AFTER REPORTING ERROR, 
7450 ; THE TIMER IS RE STARTED AND THE DEVICE WILL CONTINUE TO WAIT FOR 
7451 : AN INTERRUPT. 
7452 ; A NAK RESPONSE GENERATES A RETRANSMIT REQUEST. THIS CODE REQUEUES 
7453 : THE TRANSMIT BUFFER TO THE DEVICE AND RESTARTS THE TIMER IF 
745h : RETRANSMIT IS REQUESTED. 
7456 : INPUTS: 
7457 : “DVTXA’’ = ADDRESS OF TRANSMIT MSG. 
7458 : re TCC’’ = BYTE COUNT OF TRANSMIT MSG. 
7459 : “"QTxX'’ BIT = SET IF TRANSMIT REQUESTED 
7460 : were! BIT = SET IF TRANSMIT EXPECTED 
7461 ; “ERX BIT = SET IF RECEIVE EXPECT 
P62 : “RYMIT’ BIT = SET IF RETRANSMIT REQUESTED 
7464 S OUTPUTS: 
7465 : "DVTXA'’ = ADDRESS OF TX MSG. COMPLETED 
7466 ; “DVTCC’' = BYTE COUNT OF TX MSG. COMPLETED 
7467 : “OTxX'’ = SET IF TX QUEUED 
7468 ; "DVRXA' = ADDRESS OF RX MSG. COMPLETED 
7469 ; “DVRCC'' = BYTE COUNT OF RX MSG. COMPLETED 
7470 : "ORM = SET iF RX QUEUED 
7471 : 
7472 : 
met? 3; SUBORDINATE ROUTINES USED: TCORIO, OUTHDL 
7475 : CALLING SEQUENCE: JSR PC,DVTXRX 
rs os 
7478 064340 632737 000010 010230 DvTXRX: BIT #OTX, FLAG s1S THERE A TRANSMIT QUEUED? 
7479 064346 001457 BEQ DVTRS SIF NOT GO WAIT FOR OUTPUT 
7480 064350 042737 000010 010230 BIC #OTX, FLAG : TRANSMIS NOT QUEUEDS TRANSMIT COMPLETE 
7482 sSPECIFY "TRANSMIT MESSAGE’’ COMMAND 
7483 966356 004737 065422 JSR PC, TOORIO UEST PERMISSION TO SEND COMMAND TO DEVICE 
7484 SPER ERMISSION GRAN TED 
7485 064362 013702 007636 MOV TRIBN,R2- 3GET THE DESIRED LINE NUMBER (0-7) 
7486 064366 006302 ASL R2 3\ 
7487 064370 006302 ASL R2 i8*L INE _NUMBER=>R2 (0,8,16,24,32,40,48,56) 
7488 064372 006302 ASL R2 
7489 064374 062702 013534 ADD #TXBOL, gfe ‘hoo THE XMIT BDL BASE ADDRESS 
7490 064400 010237 013432 MOV R2,BDLMAD L MEMBER ADDRESS=>BDLMAD 
7491 (64404 013737 007636 013430 MOV TRIBN, BDLMNM a NEN UMBER = 0-7 
7492 ; RECE WE BDL MEMBER NUMBERS ARE 1-8 
7493 ; TRANSMIT BDL MEMBER NUMBERS ARE 9-16 
7494 064412 062737 000011 013430 ADD 9. ,.BDLMNM i CALCULATE XMIT BDL MEMBER NUMBER => BDLMNM 
7495 064420 012722 100000 MOV eeitts 5, (R2)+* [SET STATUS WORD IN BDL MEMBER BLOCK 
7496 064424 013722 010064 MOV OUTKAct (R2)¢ «AE TFER ADDRESS FOR XMISSION 
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SEQ 218 
CZKMSAO KMS11-BD/BE DCLT MACY11 30A(1052) 23-DEC-82 14:01 PAGE 219 
CZKMSA.P11 = 23=DEC~B2 13254 DEVICE TRANSMIT AND RECEIVE SUBROUTINE 

7497 064430 013722 010066 MOV DvICC, (R2)+ i CHARACTER COUNT FOR XMISSION 

7498 064434 9050¢¢- CLR (R [CLEAR THE DDCMP MESSAGE NUMBER FIELD 

7499 064436 042777 177757 126732 BIC # +957 @SEL2 CLEAR ALL EXCEPT 

7500 064444 152777 000100 126724 BISB #100,aBSEL2 [SPECIFY COMMAND PAIR (2,0) IN BITS 6:5,2:0 
7501 064452 113777 007636 126720 MOVE  TRIBN ABSEL3 :SPECIFY LINE 

7592 064460 005077 126716 CLR aBseL é [CLEAR UNUSED BSEL4 

7503 064464 112777 909001 126714 MOVB 1, @BSEL6 ‘SPECIFY NUMBER OF MSGS TO TX=1 

7504 064472 113777 013430 126710 MOVB BDLRNM, SBSEL7 [SPECIFY BDL MEMBER NUMBER 

7505 064506 142777 000020 126670 BICB #RDYI,aBSEL2 INDICATE READY TO TRANSFER COMMAND 

7208 064506 DvTR3: 

7508 064506 005737 013642 TST RXMIT 31S RETRANSMET ASSERTED ? 

7309 064512 001440 BEQ 10$ :NO. GO SET TIMER 

7511 sRETRANSMIT 

7512 064514 004737 065422 JSR {REQUEST PERMISSION TO SEND DEVICE A COMMAND 
7513 064520 042777 177757 126650 BIC Wty IS, QSEL2  3CLEAR ALL EXCEPT RDYI BIT 

7514 064526 152777 000100 126642 BISB #100,aBSEL2 ; SPECIFY TRANS] COMMAND 

7515 064534 013702 007654 MOV TSPTR RZ SPOINT TO TX SAVE AREA 

7516 064540 014237 010164 MOV - SCOPY SAVED SEL2 

7517 064544 113777 010165 126626 MOVB TEMbed  OBSEL3 SPECIFY LINE NUMBER 

7518 064552 005077 126624 CLR a :CLEAP SEL4 

7519 064556 014237 010164 MOV -(R2), TEMP :COP* SAVED SEL6 

7520 064562 112737 000001 010164 MOVB #1, TEMP [SET NUMBER OF MSGS 

7521 064570 013777 010164 126610 MOV TEMP, aSEL6 :SPECIFY BDL AND MSG NUMBERS 

7522 064576 142777, 000020 126572 BICB © #RDYE,aBSEL2 — ; SPECIFY READY TO TRANSFER COMMAND 

7523 064604 010237 007654 MOV R2,TSPTR RESTORE TX SAVE AREA POINTER 

7324 064610 005337 013642 DEC RXMIT oe Sol 4iDECREMENT RETRANSMIT COUNT 

1326 064614 012737 000074 010274 10$: Mov #60.,11MERS [SET TIMER FOR 60 SECS !!!FOR DEBUG =30 !!!! 
7528 :CHECK FOR TX OR RX COMPLETION 

7529 064622 TOINOT: 

7530 064622 005737 013642 TST RXMIT sIF RETRANSMIT ASSERTED 

7531 064626 001327 BNE DVTR3 [GO REQUEUE TX BUFFER 

7532 064630 005737 007646 TST CRX :IF RX COMPLETED 

7533 064634 001053 BNE DVTR4 :G0 PROCE $s COMPLETION 

7534 064636 005737 007644 TST CTX [IF 1x COMPLETED 

7535 064642 001050 BNE DVTR4 30 PROCESS COMPLET !ON 

7536 064644 005737 010274 TST TIMERS its TIMER EXPIRED 

7537 064650 001027 BNE TOIN1 GO. CHE CK INTERRUPTS 

7538 IME EXPIRED. REPORT ER ROR 

7539 0664652 012737 022223 010170 MOV #OVEM2, timp? sSPECIFY ERROR MESSAGE 

7540 064660 005037 010172 CLR TEMP3 SSPECIFY ERROR CODE 

7541 064664 017737 126502 010174 MOV aseLo, TEMPS SCOPY SELO 

7542 064672 017737 126500 010176 MOV SeEL2.T :COPY SEL2 

7543 064700 113737 010175 010173 MOVB Tenpas1, OTERP Sot SCOPY LINE NUMBER FROM TEMP 

7544 064706 005237 010124 INC ERRCNT SINCREMENT ERROR COUNT 

7545 064712 004737 024226 JSR PC ,LGDVE L0G TIME OUT 

7546 000005 ENUM = “DcENUM M+1> SINCREMENT ERROR NUMBER 

7547 064716 ERRSOFT ENUM,DVEM2,ERR13 ;REPORT TIME OUT ERROR 

7548 0664716 104457 TRAP  CSERSOFT 
7549 064720 000005 «WORD 5 
7550 064722 022223 «WORD DVEM2 
7551 064724 023460 npc “WORD  ERR13 
7552 064726 000667 bR DVTR3 :REPEAT TIME CHECK 
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SEQ 219 
CZKMSAO kMS11-80/BE DCLT MACY11 30A(1052) 23=DEC“82 14:01 PAGE 220 
CZKMSA.P11 23-DEC=B2 13:54 DEVICE TRANSMIT AND RECEIVE SUBROUTINE 

7553 

7554 3; CHECK FOR INTERRUPT 

7555 064730 TOIN]: BREAK sALLOW CNTRL/C EXIT 

7556 064730 104422 TRAP = C$BRK 
7557 064732 032737 000003 010230 TOIN2: BIT #OTINT+ININT, FLAG HAS AN INTERRUPT OCCURRED ? 

7558 064740 001730 BEQ TOINO KEEP CHECKING 

7559 s INTERRUPT OCCUR RED 

7560 064742 042737 000003 010230 BIC #OTINT*ININT, FLAG sCLEAR INTERRRUPT INDICATORS 

7561 064750 132777 000200 126420 BITB #RDYO,a@BSEL2 is THERE A MESSAGE FROM THE DEVICE 
7562 064756 001721 BEQ TOINOT KEEP CHECKING 

7563 sMESSAGE- "ERO DEVICE 

7564 064760 004737 066040 JSR PC,OUTHDL PROCESS MESSAGE FROM DEVICE 
7565 CHECK 1° 2 OR TX COMPLETED 

7566 064764 005737 013642 DVTRG4: TST RXMIT its RET RANSMIT ASSERTED ? 

7567 064770 001246 BNE DVIRS : YES. oo RETR ANSM IT 

7568 064772 005737 007644 TST CTX HAS A TX COMPLETED 

7569 064776 001004 BNE DVIRGA iYES. 490 PROCESS COMPLETION 

7570 065000 005737 007646 10$: TST CRX HAS AN RX COMP 

7571 065004 001077 BNE DVTRS tYES. 60 PROCESS COMPLETION 

7372 065006 000705 BR TOINOT =NO. KEEP CHECKING 

7574 065010 DVTRGA: ;1X COMPLETED 

7575 065010 013702 007654 MOV TSPTR,R2 POINT TO TX SAVE AREA 

7576 065014 014237 007636 MOV -(R2), TRIBN ‘COPY SAVED TX LINE NUMBER 

7577 065020 105037 007636 CLRB ~—s TRIBN ‘CLEAR LOW BYTE 

7578 065024 000337 007636 SWAB —s-: TRIB :POSITION LINE NUMBER IN LOW BYTE 
7579 065030 014237 010164 MOV -(R2), TEMP :COPY SAVED TX BDL NUMBER 

7580 065034 105037 010164 CLRB so TEMP ;CLEAR LOW BYTE 

7581 065040 000337 010164 SWAB Ss 3 POSITION BDL NUMBER IN Low BYTE 
7582 065044 010237 007654 MOV R2,TSPTR SRESTORE 1X SAVE AREA POINTER 

7583 065050 032737 000200 010230 BIT #ETX, FLAG VES. IS TX COMPLETION EXPECTED ? 
7584 065056 001025 BNE DVTR4B ES. GO PROCESS TRANSMIT COMPLETED 
7585 sunenPe cits TRANSMIT COMPLETION 

7586 065060 012737 022330 010170 MOV MDVEMG, TEMP2 LOG UNEXPECTED TRANSMIT ERROR 

7587 065066 012737 000002 010172 MOV #2, TEMP3 isp ECIFY ERROR fone 

7588 065074 113737 007636 010173 MOVB _—sTTRIBN, TEMP3+1 “RECORD LINE NUMBER 

7589 065102 013737 010164 010174 MOV Lh dt _ RECORD BDL NU UMBER FOR ERROR 

590 065110 005237 010124 INC ERRCN ; INCREMENT ERROR COUNT 

7591 065114 004737 024226 JSR PC, CeDVE LO 

7592 000006 ENUM = “D<ENUM+1> S INCREMENT eRROR N UMBER 

7593 065120 ERRSOFT ENUM, DVEM4 ,ERR22- ;REPORT ERROR seetuinitaaed, bigs 

7594 065120 104457 CSERSOFT 
7595 965122 000006 TBORD 7 
7596 065124 022330 “WORD DVEM4 
7597 065126 023542 ~WORD ERR22 
7598 065130 000423 BR DVTR&C : THEN CLEAR COMPL .FLAG 

7599 “NOTE: COUNT REDUCED AT DVIR4C 

7600 065132 DVTR4B: SEXPECTED TRANSMIT COMPLE TE 

7601 065132 013703 010164 MOV TEMP,R3 ;COPY BDL NUMBER 

7602 065136 005303 DEC R3 [COMPUTE OFFSET 

7603 065140 006303 ASL R3 : FOR 

7604 065142 006303 ASL R3 ; THIS 

7605 065144 006303 ASL R3 MEMBER 

606 065146 362703 013434 ADD #BDLBAS,R3 [FORM BBL TABLE POINTER 

7607 065152 005023 CLR (R3)¢ SCLEAR BDL STATUS WORD 

7608 065154 012337 010064 MOV (R3)¢,DVTKA TUNLOAD TX MESSAGE ADDRESS 
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SEQ 220 
CZ7KMSAO Knstt; D/BE bout MACY11 30A(1052) 23-DEC-82 14:01 PAGE 221 
CZKMSA.P11 23-DEC-P2 13:54 DEVICE TRANSMIT AND RECEIVE SUBROUTINE 

7609 065160 012337 010066 MOV (R3)+,DVTCC ;UNLOAD TX MESSAGE CHAR COUNT 
7610 065164 013737 007636 010070 MOV TRIBN,DVTTB ‘STORE LINE NUMBER FOR LOGGING 
ol) 069172 052737 000010 010230 eal BIS #OTK, SLAG SSET QUE-TRANSMIT FLAG BIT 

7613 065200 005337 007644 DEC CTX sDECREMENT TX COUNT 

7614 065204 DVTRS: 

7615 065204 005737 007646 TST CRX yANY RECEIVES | COMPLETED ? 

7616 065210 001503 BEQ DVTREX =NO. GO RETU 

7617 sRECEIVE COMPLETED 

7618 065212 913702 007650 MOV RSPTRS,R2 sPOINT TO RECEIVE SAVE AREA 

7619 065216 O1223 919164 MOV (R2)+, TEMP COPY SAVED BDL NUMBER 

7620 065222 10 937 10164 CLRB  ~—s TEMP :CLEAR LO BYTE 

7621 065 2 000337 010164 SWAB Ss TEMP POST TION BDL NUMBER IN LO BYTE 
7622 065232 012237 007636 MOV (R2)+, TRIBN ‘COPY SAVED LINE NUMBER 

7623 065236 105037 007636 CLRB TRIBN [CLEAR LO BYTE 

7624 065242 000337 00763 3WAB.Ss«éSTRXC‘ACBB *POSITION LINE NUM IN LO BYTE 
7625 065246 020227 010046 CMP Rg BRXSKEN ‘POINTING TO END OF RX SA:z AREA ? 
7626 065252 001002 BNE 2$ [NO. KEEP POINTER 

7627 065254 012702 007672 MOV #RXSTAK,R2 [YES. RESET POINTER 

7628 065260 010237 007650 2$: MOV R2,RSPTRS ‘SAVE POINTER 

7629 065264 032737 000100 010230 BIT WERK, FLAG i1s RX COMPLETE EXPECTED 

7630 065272 001025 BNE DVTR5B ES. GO PROCESS RX CORP, ETED 
7631 sunexecieD aeCEIVE COMPLETION 

7632 065274 012737 022407 010170 MOV #OVEMS, TEMP2 RECORD UNEXPECTED RX COMPLETION 
7633 065302 012737 000002 01017¢ MOV #2, TEMP3 isp ECIFY ERROR CODE 

7634 065310 113737 067636 01017 MOVB _—*TRIBN, TEMP3+1 ;RECORD LINE NUMBER 

PARES NASTIA N1Z7Z7_ —NINIKL =10177, mow Temp temps er 

7636 065324 0605237 010124 INC ERRCNT : INCREMENT “ERROR COUNT 

7637 065330 004737 024226 PC,LGDVE LOG EVENT 

7638 000007 ENUM = “3 SENUM M+1> IN NCREMENT ERROR NUMBER 

7639 065334 ERRSOFT ENUM,DVEMS,ERR22. :REPORT ERROR 

7640 065334 104457 TRAP = CSERSOFT 
7641 065336 000007 .WORD 7 
7642 065340 022407 “WORD DVEMS 
7643 065342 023542 “WORD ERR22 
O44 065344 000423 BR DVTRSC : AND EXIT 

7646 065346 DVTRSB: sEXPECTED RX COMPLETED 

7647 065346 013703 010164 MOV TEMP,R3 :COPY BDL MEMBER NUMBER 

7648 065352 005303 DEC R3 [COMPUTE OFFSET 

7649 065354 006303 ASL R3 : FOR 

7650 065356 006303 ASL R3 3 THIS 

7651 065360 906303 ASL R3 MEMBER 

7652 065362 062703 013434 ADD #BDLBAS,R3 [POINT TO THIS MEMBER IN BDL AREA 
7653 065366 005023 CLR (R3)¢ *CLEAR BDL STATUS WSRD 

7654 065370 012337 010104 MOV (R3)+,DVRKA [UNLOAD RX MESSAGE 

7655 065374 012337 010106 MOV (R3)+,DVRCC SUNLOAD RX MESSAGE CHAR COUNT 
7656 065400 013737 007636 010102 MOV TRIBN,DVRTB ORE LINE NUMBER FOR LOGGING 

7657 065406 052737 000004 010230 BIS WORK, FLAG [SET FLAG TO QUE ANOTHER RECEIVER 
7658 065414 DVIRSC: 

7659 065414 005337 007646 DEC CRX 

7660 065420 000207 DVTREX: RTS PC 

7662 

7663 
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CZ7KMSAO_ KMS11=-BD/BE DCLT MACY11 30A(1052) 23-DEC+82 14:01 PAGE 222 
CZKMSA.P11 25-DEC$82 13:54 DEVICE TRANSMIT AND RECEIVE SUBROUTINE 


7665 


SEQ 221 
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SEQ 222 
CZKMSAO KMsit; D/BE cur MACY11 30A(1052) 23=DEC-82 14:01 PAGE 223 
CZKMSA.P11 23-DEC- ORIO REQUEST PERMISSION TO GIVE DEVICE A CONTROL MESSAGE 

7666 .SBTTL TOORIO REQUEST PERMISSION TO GIVE DEVICE A CONTROL MESSAGE 

7668 3* 

7669 ; FUNCTIONAL DESCRIPTION: 

7670 ; TOORIO = THIS SUBROUTINE REQUESTS AN INPUT INTERRUPT THEN 

7671 ; WAITS FOR AN INTERRUPT OR A TIMEOUT. 

767 ; IF AN OUTPUT INTERRUPT OCCURS OUU'THDL IS CALLED 

767 ; TO HANDLE THE OUTPUT DATA, AND THE REQUEST 1s REISSU 

7674 : If AN INPUT INTERRUPT OCCURS CONTROL RETURNS TO THE EACLER. 
7675 ; IF A TIMEOUT OCCURS AN ERROR IS REPORTED AND THE REQUEST 
7676 ; 1S REISSUED. 

7677 : 

7678 : INPUTS: 

7679 : FLAG = OTINT BIT = SET BY OUTPUT INT ROUTINE 

7680 : ININT BIT = SET BY INPUT INT. ROUTINE 

7o8) ; CLEARED BY THIS ROUTINTE. 

7683 : OUTPUTS: 

7684 ; ERRCNT = INCREMENTED IF A TIMEOUT OCCURS 

7686 ; SUBORDINATE ROUTINES USED: 

7687 ; DVE = LOG DEVICE ERRORS 

pees $ a - SOTPUT INTERRUPT HANDLER 

7690 t CALLING SEQUENCE: 

7691 ; JSR PC, TOORIO 

Fe98 an 

7694 065422 011637 010210 TOORIOG: MOV (SP) ,PCADD sSAVE ADDR. OF CALLING ROUT INE 

7695 065426 152777 000021 125736 BISB #lEO'IEL,aBSELO TENABLE INTERRUPTS 

7696 065434 TOORI1: 

7697 065434 152777 000200 125730 BISB #RQI,aBSELO ZASSERT RQI 

7698 065442 012737 002000 010270 MOV #20060, TIMER) T TIMER 

7699 065450 005737 010270 TOORI2: TST TIMERI ils TIME EXPIRED ? 

7700 065454 001027 BNE TOORI3 CONT INUE 

7701 TIME EXPIRED WAITING, FOR RDYI 

7702 065456 142777 006200 125706 BICB #RQI,aBSELO sYES. NEGATE R 

7703 065464 012737 022275 010170 MOV #DVERS, TEMP2 "REPORT TIME out WAITING FOR RDYI 
7704 065472 005037 010172 CLR TEMP3 :SPECIFY ERROR CODE 

7705 065476 017737 125670 010174 MOV aSeLQ.TE «TEMPS [COPY BSEL 

7706 065504 017737 125666 010176 MOV aseL :COPY BSEL 

7707 065512 005237 010124 INC eearat ; INCREMENT ERROR COUNT 

7708 965516 004737 024226 JSR PC ,LGDVE LOG THE DEVICE ERROR 

7709 000010 ENUM = “DZENUM M+1> S INCREMENT ERROR NUMBER 

7710 065522 ERRSOFT ENUM,DVEM3,ERR13° ;PRINT THE ERROR 

7711 065522 104457 TRAP = CSERSOFT 
r7ie 065524 00001C .WORD 8 

7713 065526 022275 “WORD DVEM3 
7714 065530 023460 WORD ERRI3 
7715 065532 000740 BR TOORI1 :GO BACK AND TRY AGAIN 

7716 065534 TOORI3: 

7717 065534 BREAK SALLOW CNTRL/C EXIT 

7718 065534 104422 TRAP CS$BRK 
7719 a CHECK FOR AN INTERRURT 

7720 065536 032737 000003 010230 BIT #OTINT+ININT, FLAG HAS AN INTERRUPT OCCURRED ? 

7721 065544 001741 BEQ TOORI2 eNO. WAIT FOR ONE 
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SEQ 223 
CZKMSAO KMS11-BD/BE DCLT MACY11 30A(1052) 23-DEC-82 14:01 PAGE 224 
CZKMSA.P11 23-DEC=-82 13:54 TOORIO REQUEST PERMISSION TO GIVE DEVICE A CONTROL MESSAGE 

7722 065546 042737 000003 010230 BIC #OTINT+ININT, FLAG “YES, CLEAR INTERRUPT OCCURED INDICATORS 
772 sCHECK FOR A MESSAGE FROM THE FIRMWARE 

7724 065554 132777 000200 125614 BITB #RDYO,aBSEL2 is THERE A MESSAGE FROM THE E I RPUARE ? 
7725 065562 001407 BEG TOORIG LOOK FOR PERMISSION TO SEND 

7726 sMESSEGE RECEIVED FROM FIRMWARE 

7727 065564 004737 066040 JSR PC, OUTHDL sREAD MESSAGE FROM ft RMWARE 

7728 065570 132777 000920 125600 BITB #ROYI,aBSEL2 ‘1S PERMISSION 10, SEND ASSERTED ? 

7729 065576 001005 BNE TooRI5 SYES. NEGATE RQI AND RETUR 

730 065600 000715 BR TOORI1 *NO. RESET TIMER AND WAIT 

o03e 065602 TOORIG: >CHECK FN RESPONSE TO RO! 

7733 065602 132777 000020 125566 BITB #RDYI,aBSEL2 s1S IT Ok TO SEND A MESSAGE TO FIRMWARE ? 
7734 065610 001717 BEQ TOOR NO. Go CHECK TIMER 

7735 065612 142777 000200 125552 TOORIS: BICB  #RQI,aBSELO TNEGATE ROI 

1736 065620 060207 RTS PC SRETURN TO CALLER 

7738 

7739 
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SEQ 224 
CZKMSAO KMS11-BD/BE DCLT MACY11 30A(1¢52) 23-DEC-82 14:01 PAGE 225 
CZKMSA.P11 23-DEC “82 13:54 TOORO WAIT FOR AN EXPECTED CONTROL MESSAGE FROM DEVICE 
741 ~SBTTi. TOORO WAIT FOR AN EXPECTED CONTROL MESSAGE FROM DEVICE 
774 
7744 
7745 3+4 
7746 :TOOR 
7747 3 FUNCT Ign. DESCRIPTION: 
7748 ; TOORO = THIS SUBROUT INE WAITS FOR AN ourPUT INTERRUPT 
7749 : TIMEOUT OR A CONTROL=C TYPED BY THE OPERATOR. 
7750 : Tr AN OUTPUT INTERRUPT OCCURS OUTHDL IS CALLED TO 
7751 : HANDLE THE INTERRUPT D 
7752 ; IF A TIMEOUT OECURS AN ERROR IS REPORTED AND LOGGED 
7753 ; AND THE "IMER IS RESTARTED. 
7754 : IF CONTROL*C€ IS TYPED THE PROGRAM EXITS TO THE 
7755 ; DR> PROMPT. 
7756 : 
7757 : INPUTS: 
7758 : FLAG = OTINT BIT = SET BY OUTPUT INT ROUTINE 
7759 ; ININT BIT = SET BY INPUT INTERRUPT ROUTINE 
oreo 3 CLEARED BY THIS ROUTINE 
7762 ; SUBORDINATE ROUTINES USED: 
7763 ; LGDVE LOG DEVICE ERRORS 
ree ; SUTMBL ~ SUTPUT INTERRUPT HANDLER 
7766 > CALLING SEQUENCE : 
7767 : JSR PC, TOORO 
rs ‘i 
7770 065622 011637 010210 TOORO: MOV (SP) ,PCADD sg SAVE ADDR. OF CALLING ROUT INE 
dha 065626 112777 000021 125536 MOVB #IEO+IE1,aBSELO vale Soe mp ENABLE INTERRUPTS 
7773 265634 TOORO1: 
7774 065634 012737 002000 010270 MOV #2000, TIMER1 :SET TIMER 
7775 sCHECK TIME 
7776 065642 005737 010270 TOORO2: TST TIMER1 TIME EXPIRED ? 
7777 065646 001055 BNE TOORO3 [NO. CONTINUE 
7778 ;TIME EXPIRED 
7779 065650 032737 000400 010230 BIT #INITC, FLAG s1S KMS INITIALIZATION REQUESTED ? 
7780 065656 001404 ‘i BEQ =NO 
7781 065660 012737 022075 010170 MOV #DVEMIA, TEMP2 ‘SPECIFY ERROR MESSAGE 
7782 065666 000413 BR 30$ : 
7784 065670 032737 001000 010230 10$: BIT #SETC, FLAG :1S START PROTOCOL REQUESTED ? 
7785 065676 001404 BEQ [NO 
7786 065700 012737 022147 010170 MOV #DVEMIB, TEMP2 [SPECIFY ERROR MESSAGE 
7787 065706 000403 BR 30$ 
7788 065710 208: 
7789 065710 012737 022032 010170 MOV #DVEM1, TEMP2 ZTIMED OUT. ERROR MESSAGE. 
7790 065716 013737 010170 013710 30$: MOV TEMP? ERRMSG TSPECIFY MESSAGE FOR ERROR REPORT 
7791 065724 005037 010172 CLR TEMP :SPECIFY ERROR CODE 
7792 065730 017737 125436 010174 MOV aseLo, TEMPS = COPY BSELO 
7793 065736 017737 125434 010176 MOV astle TEMPS [COPY BSEL 
7794 065744 005237 010124 INC ERR (nf ‘INCREMENT ERROR COUNT 
7795 065750 904737 024226 PC, CEDVE *LOG ERROR 
7796 000011 ENUM = “DENUM+1> sINCREMENT ERROR NUMBER 


G 2 
SEQ 225 
CZKMSAO_KMS11-BD/BE cut MACY11 30A(1052) 23-DEC-82 14:01 PAGE 226 
CZKMSA.P11 23-DEC-B82 13:54 TOORO WAIT FOR AN EXPECTED CONTROL MESSAGE FROM DEVICE 
7797 065754 012737 000011 013706 MOV #ENUM ERRNBR sRECORD ERROR NUMBER 
7798 065762 012737 999003 013704 MOV T.ESFT,ERRTYP :SPECIFY ERROR TYPE 
7 065770 012737 023460 013712 MOV PERRYS ERROLK > SPECIFY ERROR HANDLER 
7800 065776 ERROR SREPORT ERROR 
7801 065776 104460 TRAP  CSERROR 
780 066000 000715 BR TOORO1 ;REPEAT WAIT FOR sNTERRUPT 
7804 sCHECK FOR INTERRUPT 
7805 066002 TOORO3: BREAK :PERMIT CONTROL-C EXIT WHILE WAITING 
7806 066002 104422 C$BRK 
7807 066004 032737 000003 010230 BIT #ININT:OTINT, FLAG ;HAS INTERRUPT OCCURRED He 
7808 066012 001713 BEQ RO2 0. KEEP WAITING 
7809 » INTERRUPT OCCUR RED 
7810 066014 042737 000003 010230 BIC #ININT!OTINT, FLAG s CLEAR INTERRUPT INDICATOR 
7811 066022 132777 000200 125346 BITB #RDYO aBSEL2 31S THERE A MESSAGE FROM THE DEVICE ? 
7812 066030 001704 BEQ TOORO? NO. KEEP WAITING 
7813 sMESSAGE- FROM DEVICE 
7814 066032 004737 066040 JSR PC,OQUTHDL PROCESS MESSAGE FROM DEVICE 
7815 066036 000207 RTS PC RETURN TO CALLER 
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SEQ 226 
CZKMSAO KMS11-BD/BE pout MACY11 30A(1052) 23=DEC-82 14:01 PAGE 227 
CZKMSA.P11 23=DEC=82 13:54 OUTPUT INTERRUPT HANDLER 
rei? ~SBTTL OUTPUT INTERRUPT HANDLER 
7819 3+ 
7820 3 FUNCTIONAL DESCRIPTION: 
7821 : UTHDL = OUTPUT INTERRUPT HANDLER 
7822 3 THIS ROUTINE IS CALLED WHEN AN INTERRUPT HAS OCCURRED 
7823 3 WITH RDYO ASSERTED CBSEL2 BIT? S Ws 
7824 3 COPY SEL2,SEL4,SEL6 
res? ; CLEAR RDYO TO SAY MESSAGE TRANSFER COMPLETED 
7827 3 
7828 : USE OF FLAGS 
7829 ; “INITC’’ = SET BY DVINIT IF WAITING FOR COMPLETION 
7830 3 OF SYSTEM INITIALIZATION 
7831 : CLEARED BY THIS ROUTINE IF COMMAND PAIR 0,0 
7832 3 1S RETURNED BY FIRMWARE 
7833 3 CTX" - SET IF TRANSMIT COMLETED 
7834 3 “*CRX' - SET IF RECEIVE COMPLETED 
7835 3 
7836 : 
$44 3: SUBORDINATE ROUTINES USED: 
$34 3 “LGDVE'’ -LOG DEVICE ERRORS TO EVENT LOG 
7841 : CALLING SEQUENCE 
7842 3 JSR PC,OUTHDL 
7843 : 
7845 
7846 066040 OUTHDL: sCOPY FIRMWARE MESSAGE REGISTERS 
7847 066040 017737 125326 067170 MOV aseLo, SVSELO :COPY SELO 
7848 066046 017737 125324 067172 MOV aSEL2,SVSEL2 :COPY SEL2 
7849 066054 017737 125322 067174 MOV aSEL4, oyeEts COPY SEL4 
7850 066062 017737 125320 067176 MOV @SEL6,SVSEL6 s;COPY SEL6 
7851 yASSERT MESSAGE TRANSFER COMPLETED 
7852 066070 142777 000200 125300 BICB #RDYO, aBSEL2 sCLEAR RDYO 
785 :CHECK FOR CLEANUP MODE 
7854 066076 005737 010134 TST CLNSET 316 CLEANUP glove ENTERED (CLNSET = <1) 
eee 066102 001030 BNE OUTEND ; THEN RETU 
7857 ; ISOLATE COMMAND PAIR 
7858 066104 013702 067172 MOV SVSEL2,R2 sCOPY SAVED SEL2 
7859 966110 010203 MOV R2,R5 [COPY AGAIN 
7860 066112 006202 ASR R2 ;SHIFT COMMAND FROM BITS 5-6 
7861 066114 006202 ASR R2 TO BITS 3-4 
7862 066116 042702 177747 BIC #*C<30>,R2 i ISOLATE COMMAND IN R2 BITS 4:3 
7863 066122 042703 177770 BIC #*C<7>,R3 ‘ISOLATE SUBCOMMAND IN R Bits 2:0 
7864 s COMPUTE COMMAND PROCESSOR ADDRESS. 
7865 066126 050203 BIS R2,R3 : COMBINE COMMAND, SUBCOMMAN 
re66 066130 010337 067166 MOV R3,CMDSUB ?SAVE COMMAND, SUBCOMMAND PAIR 
7868 CHECK COMMAND pale IN VAILD RANGE (37:0) 
7869 066134 022703 000037 CMP #37,k3 tS COMMAND PAIR WITHIN VALID RANGE ? 
7870 066140 103003 BHIS 10$ YES. GO CET PROCESSOR ADDRESS 


7871 ; COMMAND * "OUTSIDE VALID RANGE 
7872 066142 013703 066266 MOV ADRINV,R3 NO. GET OFFSET FOR INVALID COMMAND PROCESSOR 
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SEQ 227 
MACY11 30A(1052) 23-DEC-82 14:01 PAGE 228 
OUTPUT INTERRUPT HANDLER 
BR 20$ 360 DO PROCESS 
s COMMAND WITHIN VALID RANGE 

10$: ASL R3 sMULTIPLY COMMAND PAIR BY 2 

MOV CMDTBL(R3) ,R3 :GET OFFSET TO COMMAND ACTION ROUTINE 
20$: ADD #CMDTBL,R3 ADD IN BASE ADDRESS 

sPROCESS COMMAN 

JSR PC,(R3) EX ECUTE COMMAND ACTION ROUTINE 
OUTENE: RTS PC TRETURN. 
CMDTBL: :BASE ADDRESS FOR ACCESSING COMMAND ACTION ROUTINES 

TABL E wot COMMAND PROCESSOR ADDRESS OFFSETS 

.woRD  €0S0-CMDTBL 

“WORD COST -CMD TBE 

WORD COS¢-CMDTBL 

[WORD COS3=-CMDTBL 

[WORD COS4=CMDTBL 

SWORD COSS=CMDTBL 

SWORD COS6=CMDTBL 

“WORD (€0S7-CMDTBL 

“WORD €1S0-CMDTBL 

“WORD €151=CMDTBL 

“WORD C1 S¢~CMDTBL 

[WORD €153-CMDTBL 

“WORD €154=CMDTBL 

“WORD €155=CMDTBL 

"WORD (€156-CMDTBL 

"WORD €157=CMDTBL 

[WORD (€2S0-CMDTBL 

SWORD (251-CMDTBL 

-WORD C2S2=CMDTBL 

“WORD (C2S5-CMDTBL 

[WORD  (254-CMDTBL 

“WORD (€2S5-CMDTBL 

[WORD (€256-CMDTBL 

SWORD (257-CMDTBL 

SWORD (€3S0-CMDTBL 

“WORD €3S1-CMDTBL 

“WORD €3S2=CMDTBL 

“WORD €3S3-CMDTBL 

[WORD €3S4-CMDTBL 

“WORD €3S5-CMDTBL 

SWORD (3S6-CMDTBL 

“WORD (€357=CMDTBL 
ADRINV: .WORD INVCMD-CMDTBL 
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SEQ 228 
CZKMSAO_KMS11=BD/BE DCLT MACY11 30A(1052) 23=DEC-82 14:01 PAGE 229 
CZKMSA.P11  — 23=DEC-82 13:54 ACTION ROUTINES FOR KMS RESPONSES AND MESSAGES 
7918 .SBTTL ACTION ROUTINES FOR KMS RESPONSES AND MESSAGES 
920 EINE het Guns, RESPONSES ARE CONSIDERED TO BE ILLEGAL 
4352 066270 COse: ACTIVITY TERMINATED ON LINE (NOT USED IN THIS PROGRAM) 
7923 066270 COS3: ; RESERVED 
7924 066270 COS5: : RESERVED 
7925 066270 COS6: : RESERVED 
7926 066270 COS?: ; RESERVED 
7927 066270 C1S0: ; RESERVED 
7928 066270 C1$1: : RESERVED 
7929 066270 C1S2: ; RESERVED 
7930 066270 C156: ;T00 MANY RECEIVE BUFFERS FOR LINE.MAX OF 2 PER LINE 
7931 066270 C28¢: ; RESERVED 
7932 066270 C253: ; RESERVED 
7933 0662 C254: : RESERVED 
7934 066270 C255: ; RESERVED 
7935 066270 C256: : RESERVED 
7936 066270 C257: : RESERVED 
7937 066270 C355: ; RESERVED 
7938 0662 C356: ; RESERVED 
7939 066270 (357: ;DEBU 
7940 066270 INVCMD : COMMAND NOT WITHIN VALID RANGE 
7941 066270 005237 013634 INC ILLRSP :COUNT ILLEGAL KMS RESPONSES 
7942 066274 000207 RTS = PC TRE TURN 
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SEQ 229 
CZKMSAO KMS11-BD/BE DCLT MACY11 30A(1052) 23-DEC-82 14:01 PAGE 230 
CZKMSA.P11  - 23=DEC-82 13:54 ACTION ROUTINES FOR KMS RESPONSES AND MESSAGES 

7946 INITIALIZATION COMPLETED (0,0) 

7945 066276 042737 000400 010230 cOsO: Bic #INITC,FLAG ASSERT INITIALIZATION COMPLETED 

1946 066304 000207 RTS PC ‘RETURN 

7948 066306 COS1: :SET/RESET DDCMP MODE COMPLETED (0,1) 

7949 066306 032737 001000 010230 BIT #SETC, FLAG s1S SET DDCMP EXPECTED ? 

7950 066314 001016 BNE 10$ YES. 

795 i UNEXPECTED RESTART DDCMP 

7953 066316 105237 013636 INCB — STARTC sCOUNT UNEXPECTED DDCMP RESTARTS 

7954 066322 O12737 022465 010170 MOV #DVEM11, TEMP2 Sth ERROR MESSAGE 

7955 066330 012737 000004 010172 MOV #4, TEMPS SPECIFY ERROR CODE 

7956 066336 004737 067146 JSR PC.LOGE1 ‘LOG ERROR 

7957 000012 ENUM = “DENUM M+1> : INCREMENT ERROR NUMBER 

7958 066342 ERRSOFT ENUM,DVEM11,ERR14 ‘REPORT ERROR 

7959 066342 104457 TRAP  CSERSOFT 
7960 066344 000012 .WORD 1 
7961 066346 022465 ~ WORD DVEM11 
7962 066350 023512 "WORD = ERR14 
7963 066352 042737 001000 010230 10$: BIC #SETC.FLAG sASSERT SET/RESET COMPLETED 

7964 066360 000207 RTS PC RETURN 

7965 

7966 

7967 066362 COS4: s TRANSMIT COMPLETE 

7968 066362 005237 007644 INC CTX s INCREMENT TX COMPLETE COUNT 

7969 066366 013702 007654 MOV TSPTR,R2 ‘COPY POINTER 

7970 066372 013722 067176 MOV SVSEL6, (R2)+* [COPY SAVED SEL6 

7971 066376 013722 067172 MOV SVSEL2, (Ro) :COPY SAVED SEL2 

7972 066402 010237 007654 MOV R2,TSPTR gis ones BOINTER 

7973 066406 000207 RTS PC RETURN 

7975 066410 (183: SERROR THRE SHOLD REACHED 

7976 066410 105237 013640 INCB ERRTHR T ERROR THRESHOLD MESSAGES 

1977 066414 000207 RTS PC RETURN 


L 2 


SEQ 230 
CZKMSAO KMS11-BD/BE DCLT MACY11 30A(1052) 23-DEC-82 14:01 PAGE 231 
CZKMSA.P11 23=DEC=82 13:54 ACTION ROUTINES FOR KMS RESPONSES AND MESSAGES 
7980 :C1S4 TX TIMEOUT OCCURRED... TX CANNOT CONTINUE ON LINE 
7981 sPOSSIBLE CAUSES : 1. LINE UNPLUGGED FROM MODEM 
798 “32. K T BUF LENGTH = 0 
798 : CONDITION WILL BE €r EARED BY: 
7984 ECEPTION OF ANY MESSAGE (ACK, NAK, START, STACK, DATA) 
1985 i}: TES UING DDCMP RESTART (INPUT 6,1) FOR THIS LINE 
7987 066416 C184: :TX TIME OUT ON LINE 
7988 066416 012737 022514 010170 MOV #OVEM14, TEM?2 sSPECIFY TIME OUT ERROR MESS AGE 
7989 066424 032737 001000 010230 BIT #SETC, FLAG t1S PROTOCOL START REQUESTED 
066432 901406 BEQ 10$ ‘NO 
7991 066434 052737 004000 010230 BIS #TXTO, FLAG SRECORD TRANSMIT TIMEOUT 
7992 066442 019737 022563 010170 MOV eoyMIER. “EMP2 ‘SPECIFY PROTOCOL START ERROR MESSAGE 
7993 066450 013737 010170 013710 10%: Mov TEMP2 ,ER’MSG S SPECIFY ME SSAGE for ERROR REPORT 
7994 066456 012737 000006 010172 MOV #6, TEMP3 SSPECIFY ERROR CODE 
7995 066466 013737 067174 010174 MOV SVSEL4, TEMPS ;COP Y SAVED oF 
7996 066472 013737 067176 010176 MOV SVSEL6, TEMPS : COPY SAY ED EtG 
97 066500 004737 067146 JSR PC,LOGE1 ; ERROR 
7998 066504 012737 000003 013704 at. ESET, ERRTYP ‘SPECIFY ERROR TYPE 
7999 000013 ENUM = aD SENUM*1> : INCREMENT ERROR NUMBER 
8000 066512 012737 000013 013706 MOV #ENUM, ERRNBR ‘SPECIFY ERROR NUMBER 
8001 066520 012737 023700 013712 MOV #ERR25, ERRBLK >SPECIFY ERROR HANDLER 
8002 066526 ERROR *REPORT ERROR 
8003 066526 104460 TRAP  CSERROR 
8004 066530 000207 RTS PC : RETURN 


Mm 2 


SEQ 231 
CZKMSAO KMS11-BD/BE DCLT MACY11 30A(1052) 23=DEC-82 14:01 PAGE 232 
CZKMSA.P11  23=DEC-B2 13:54 TION ROUTINES FOR KMS RESPONSES AND MESSAGES 
8005 
8006 066532 C1S5: :MSG NAKED (1,5) 
8008 :GET NAK REASON MESSAGE 
8009 066532 012737 022631 010170 MOV a#DvEM TEMP2 sSPECIFY ERROR MESSAGE 
8010 066540 012737 000005 010172 MOV #5 ERP nes SSPECIFY ERROR CODE 
8011 066546 005002 CLR R2 SCLEAR NAK REASON INDEX 
8012 066550 123762 067176 013644 10$: CMPB  SVSEL6,NAKX(R2) [1S THIS THE NAK REASON ? 
8013 066556 001402 BEQ 208 YES. 
8014 066560 005722 TST (R2)4 [1S THIS THE END OF THE NAK REASON LIST. ? 
8015 066562 100372 BPL 10$ [NO. TRY NEXT NAK RE 
8016 066564 016237 013664 010174 208: MOV NAKMSG(R2), TEMP4 *SPECIFY NAK REASON MESSAGE 
8017 066572 004737 067146 JSR PC,LOGE1 [LOG ERROR 
8018 000014 ENUM = “D<ENUM+1> i INCREMENT ERROR NUMBER 
8019 066576 ERRSOFT ENUM,DVEM15,ERR24 sREPORT ERROR 
8020 066576 1 4457 TRAP  CSERSOFT 
8021 066600 (.9014 .WORD 12 
B022 066602 022631 “WORD DVEM15 
8023 066604 023644 [WORD = ERR24 
8024 :SPECIFY RETRANSMIT 
8025 066606 013702 007654 MOV TSPTR,R2 sPOINT TO TX SAVE AREA 
8026 066612 013722 067176 MOV SVSEL6, (R2)+ SCOPY SAVED SEL6 
8027 066616 013722 067172 MOV SVSEL2,(R2)+ [COPY SAVED SEL2 
8028 066622 010237 007654 MOV R2,TSPTR + SAVE UPDATED POINTER 
8029 066626 005237 013642 INC RXMIT SPECIFY RE TRANSMIT 
8030 066632 000207 RTS PC RETURN 
iH 
8033 066634 C1S7 s TRANSMIT REJECTED BEF ORE COMPLETION 
8034 066634 012737 022705 010170 MOV #OVEM17, TEMP2 :SPECIFY ER ROR MESSAGE 
8035 066642 012737 000002 010172 MOV #2, TEMP iSPECIFY ERROR CODE 
8036 066650 013737 067176 010174 MOV SVSEL6, TEMP4 ;COPY SAVED BDL AND ne NUMBERS 
8037 066656 000337 010174 SWAB TEMPG ;PUT BDL NUMBER IN BYTEO 
8038 066662 006737 067146 PC,LOGE1 ERROR 
8039 000015 ENUM = ob ENUN M+1> : INCREMENT — NUMBER 
8040 066666 ERRSOFT ENUM,DVEM17,ERR22 ‘REPORT ERR 
8041 066666 104457 TRAP  CSERSOFT 
8 066670 000015 .WORD 13 
8043 066672 022705 “WORD DVEM17 
B044 066674 023542 "WORD ERR22 
8045 066676 000507 GOXOUT: BR EXOUT ; GOTO CLEANUP EXIT 


N 2 


SEQ 232 
CZKMSAO_KMS11-BD/BE DCLT MACY11 30A(1052) 23=DEC-82 14:01 PAGE 233 
CZKMSA.P11 25-DEC=82 13:54 ACTION ROUTINES FOR KMS RESPONSES AND MESSAGES 
8047 
8048 066700 C2S0: sMSG RCVD (2,0) 
8049 066700 005237 007646 10$: INC CRX ; INCREMENT RX COMPLETED COUNT 
8050 066704 013702 007652 MOV RSPTRE ,R2 ;POINT TO RX SAVE AREA ENTRY 
8051 066710 Eta 067176 MOV SVSEL6,(R2)+ sCOPY SAVED SEL6 TO SAVE po 
8052 066714 0137 067172 MOV SVSEL2,(R2)¢ sCOPY SAVED SEL2 TO SAVE AREA 
8055 0667<0 022702 010046 CMP #RXSKEN,R2 31S R2 POINTING TO THE END OF AREA ? 
8054 066724 00100 BNE 20$ NO. KEEP POINTER 
8055 066726 012702 007672 MOV #RXSTAK ,R2 YES. RESET POINTER 
8056 066732 010237 007652 208: MOV R2,RSPTRE SAVE POINTER 
oO ek 066736 000207 RTS PC ;RETURN 
8059 066740 C2S1: ;REQUEST BUFFER FOR MESSAGE RECEPTION (2,1) 
8060 066740 005237 010116 INC OPVAR ; INCREMENT NO BUFF COUNTER 
ie: 066744 000207 RTS PC ;RETURN 
8065 066746 C3S0: ;STATUS REPORT. LST BYTES 0..3 
8064 066746 005037 011510 CLR LINEST ;CLEAR STATUS DATA LINE NUMBER 
8065 066752 113737 067173 011510 MOVB SVSEL2+1,LINEST COPY SAVED SEL2+1 
8066 066760 013737 067174 011500 MOV VSEL4, DEVS! sCOPY SAVED SEL4 
8067 066766 013737 067176 011502 MOV SVSEL6,DEVS2 + COPY SAVED SEL6 
8068 066774 042737 002000 010230 BIC @STAT,FLAG yy STATUS REPORT OCCURRRED 
4 067002 000207 RTS PC ;RETURN 
8071 067004 C381: sSTATUS REPORT. LST BYTES 4..7 
8072 067004 013737 067174 011504 MOV SVSEL4 ,DEVS3 ;COPY SAVED SEL4 
8073 067012 013737 067176 011506 MOV SVSEL6,DEVS4 :COPY SAVED SEL6 
8074 067020 042737 002000 010230 BIC @STAT,FLAG s INDICATE STATUS REPORT COMPLETED 
8075 067026 000297 RTS C RETURN 


B 3 


CZKMSAO_KMS11=-BD/BE DCLT MACY11 apne gee) 23-DEC-82 14:01 PAGE 234 
CZKMSA.P11 23-DEC=82 13:54 ION ROUTINES FOR KMS RESPONSES AND MESSAGES 


8076 067030 C382: ;KMC DATA MEMORY CONTENTS 
4, KADR sSAVE DEVICE R 
6,KDATA ;SAVE DEVICE R 


SEQ 233 


ADDRESS 
8079 067044 M CONTENTS (ONE BYTE) 


8081 067046 (353: :KMS TIME our. WAITING FOR RDYI = 0 

8082 067046 012737 022766 010170 MOV #OVEM33, TEMP2 SPIN t 10, RDYI TIMEOUT MESSAGE 

8083 067054 004737 067126 JSR has C,LOGEO [LOG ERR 

8084 000016 ENUM -- “DeENU sO PREMENT ERROR NUMBER 

8085 067060 Beksort. ENUM, DVEM33,ERR13 ‘REPORT ERROR 

8086 067060 104457 TRAP CSERSOFT 


8088 067064 056708 «WORD thar 
8090 067070 000207 RTS PC ;RETURN 


8092 067072 C356: :KMS TIME OUT, WAITING FOR RDYO = 0 
8093 067072 012737 30 010170 MOV #DVENS4 TEMP2 SSPECIFY ERROR MESSAGE 
8094 067100 004737 26 JSR ocr6 [LOG ERROR 
017 ENUM = “D<ENUM+1 i INCREMENT ERROR NUMBER 
067104 ERRSOFT ENUM, DVEM34,,ERR13 SREPORT ERR 
57 TRAP CSERSOFT 


7106 0 

8099 067110 023030 “WORD DVEM34 
B100 067112 023460 “WORD ERR13 
8101 067114 000207 RTS PC + RETURN 


CZKMSAO_KMS11 
CZKMSA.P11 

8105 

8106 

8107 

8108 067116 
8109 067116 
8110 067122 
8111 

Big 

8113 067126 
8114 067132 
8115 06714 
8116 067146 
8117 067154 
8118 067160 
8119 067164 
8120 

8121 

8122 

8125 

8124 067166 
8125 067170 
8126 067172 
8127 067174 
8128 067176 
8129 067200 
8130 067202 
8131 

8132 


-BD/BE 
25-DEC- 


000000 


CLT 
2 13:54 


MACY11 30A(1052) 


23-DEC-82 


. s 
14:01 


SEQ 234 


PAGE 235 


ERROR ROUTINES USED WITH KMS CSR OUTPUT ACTION ROUTINES 
-SBTTL ERROR ROUTINES USED WITH KMS CSR OUTPUT ACTION ROUTINES 


ExOUT: 


LOGEO: 


LOGE1: 


CMDSUB: 


PC,HLTTRB 
GTRAS 


TEMPS 

SVSELO, vere 
SVSEL2, TEMPS 
ayaete $1, TEMP3+1 


PC,LGDVE 
PC 


Cooooo°oo 


sDATA oo FROM FIRMWARE TO HOST MESSAGES 
D COM ee — PAIR 


F SEL6 
DEVICE RAM 


3 SAVED ADDRESS 
DEVICE RAM DATA (ONE BYTE) 


3 SAVED 


dD 3 


SEQ 235 

CZKMSAO_KMS11=BD/BE DCLT MACY11 30A(1052) 23=DEC=82 14:01. PAGE 236 

CZKMSA.P11 23-DEC-82 13:54 ERROR ROUTINES USED WITH KMS CSR OUTPUT ACTION ROUTINES 
8133 
B16 »SBITL DEVICE INTERRUPT SERVICE ROUTINES 
8136 
8137 067204 BGNSRV DVINS 
8138 067204 DVINS:: 
Fe 067204 052737 000001 019230 BIS #ININT,FLAG 
8141 067212 ENDSRV 
8142 fS7212 L10023: 
Bia? 067212 000002 
8145 067214 BGNSRV DVvOUTS 
Bis 067214 DVOUTS:: 
8148 067214 052737 000002 010230 BIS MOTINT, FLAG OUTPUT INTERRUPT OCCURRED INDICATOR 
8149 067222 ENDSRV 
8150 067222 L10024: 
8151 067222 000002 RTI 
8152 
8155 
8154 


g 3 


SEQ 236 
C7KMSAO_KMS11-BD/BE DCLT MACY11 304(1052) 23-DEC“82 14:01 PAGE 237 
CZKMSA.P11 25-DEC=B82 13:54 DEVICE INTERRUPT SERVICE ROUTINES 
8155 
8156 oEVEN 
8157 
8158 067224 ENDTST 
8159 067224 L10022: 
Bet 067224 104401 TRAP CSETST 


F 


SEQ 237 
CZKMSAO_ KMS11- ont psul MACY11 30A(1052) eS-DE Ce 14:01 E 238 
CZ2KMSA.P11 23=DEC-82 13:54 DEVICE INTERRUPT SERVICE ROUTINES 
816 


816 


G 3 


SEQ 238 

CZ7KMSAO KMS11580/BE DCLT MACY11 30A(1052) 23=DEC-82 14:01 PAGE 239 

CZKMSA.P11 23=DEC=82 13:54 HARDWARE PARAMETER CODING SECTION 
B166 .SBTTL HARDWARE PARAMETER CODING SECTION 
8166 
8167 pee 
8168 ; THE HARDWARE PARAMETER CODING SECTION CONTAINS MACROS 
8169 ; THAT ARE USED BY THE SUPERVISOR TO BUILD P-TABLES. THE 
8170 3 MACROS ARE NOT EXECUTED AS MACHINE INSTRUCTIONS BUT ARE 
8171 ; INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES. THE 
8172 : MACROS ALLOW THE SUPERVISOR TO ESTABLISH COMMUNICATIONS 
8173 3 WITH THE OPERATOR. 
8174 see 
8175 
8176 067226 BGNHRD 
8177 067226 000023 «WORD L10025-L$HARD/2 
8178 067230 LSHARD:: 
8179 
8180 
oie! ~SBTTL DEVICE INDEPENDENT SECTION 
8183 067230 DISPLAY DPLX 
8184 067230 000003 .wORD TSCODE 
8185 067232 067433 ~WORD DPLX 
8186 
8187 
8188 
8189 
3130 .SBTTL DEVICE DEPENDENT SECTION 
8192 067234 GPRMA  CSRADR,0,0,160000,177776, YES 
8193 067234 000031 .WORD TSCODE 
8194 067236 067276 «WORD CSRADR 
8195 067240 160000 WORD TSLOLIM 
8196 067242 177776 WORD TSHILIM 
B197 067244 GPRMA VECTOR,2,0,300,776,VES 
8198 067244 001031 .WORD  TSCODE 
8199 067246 067324 -WORD VECTOR 
8200 067250 0600300 WORD TSLOLIM 
8201 067252 000776 -WORD TSHILIM 
8292 067254 GPRMD PRIOR,4,0,340,4,7, YES 
8203 067254 002032 .WORD TSCODE 
8 067256 067357 .WORD PRIOR 
8205 067260 000340 WORD 340 
8206 967262 000004 WORD TSLOLIM 
8207 067264 000007 WORD TSHILIM 
8208 067266 GPRMA  0M11BA,6,0,160000,177776, VES 
8209 067266 003031 .WORD T$CODE 
8210 067270 067405 WORD OMIIBA 
8211 067272 160000 WORD TSLOLIM 
8212 067274 177776 WORD TSHILIM 
8213 067276 ENDHWL : 
8214 067276 ENDHRD 
8215 EVEN 
8216 067276 110025: 
8217 
8218 sNLIST BEX 


H 3 


CZ7KMSAO KMS11-BD/BE DCLT MACY17 30A(1052) 23=DEC=82 14:01 PAGE 240 
CZKMSA.P11 25=DEC=82 13:54 DEVICE DEPENDENT SECTION 


DEVICE INDEPENDENT QUESTIONS 


SEQ 239 


DEVICE DEPENDENT QUESTION 


borere 046513 030503 Beotg) CSRADR: .ASCIZ /KMC11-B CSR ADDRESS: / 
067324 047111 042524 O51122 VECTOR: .ASCIZ /INTERRUPT VECTOR ae me / 
067357 117 052116 051105 PRIOR: .ASCIZ /INTERRUPT PRIORITY 
067405 104 030515 026461 DMIIBA: .ASCIZ /DM11=BA CSR ADDRESS: , 
067433 106 046125 020114 DPLX: .ASCIZ /FULL DUPLEX ONLY/ 
067454 900 -BYTE 0 
LIST BE 
067456 ~EVEN 


CZ7KMSAO_KMS11-BD/BE 
CZKMSA.P11 2 


9 09 CD Od OD OD 09 Cd OD OD 00 CD C9 CD CD CD CD CD. CD CD 

rorororenororeforororononoroneferener 
WAWNNWNwinonononnnn 
SODNA ASW —OOONOUE 


067456 
067456 


067536 
067536 


067542 


-DEC- 


000030 


000000 
000000 


000001 


2 13:54 


.- 2 


MACY11 30A(1052) 23=DEC-82 14:01 PAGE 241 


DEVICE DEPENDENT SECTION 
;.SBTTL SOFTWARE PARAMETER CODING SECTION 


THE SOF TWARE pPARAMETER CODING SECTION CONTAINS MACROS 
: THAT ARE USED BY SUPERVISOR TO BUILD P=TABLES. THE 
: MACR ARE NOT Execute AS MACHINE INSTRUCTIONS BUT ARE 
; INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES. THE 
> MACROS ALLOW THE SUPERVISOR TO ESTABLISH COMMUNICATIONS 
; WITH THE OPERATOR. 
: BGNSFT 
: ENDSFT 
: TEMPORARY PATCH AREA - FOR DEBUG PURPOSES °° ** 
SPATCH: 
-BLKW 30 
LASTAD 
EVEN 
“WORD 
“WORD 
LSLAST:: 
ENDMOD 
eEND 


SEQ 240 


J 3 


SEQ 241 
CZ7KMSAO KMS11-BD/BE DCLT MACY11 30A(1052) 23-DEC=82 14:01 PAGE 243 
CZKMSA.P11 23=DEC “82 13:54 CROSS REFERENCE TABLE == USER SYMBOLS 
ABO = - 00002 tH 366) 
act « 00308 45@ 5766 6220 6300 
ACTATV 05 $8 989 bee0e 
ACTBCR 0567350 6007 61798 
ACTCHK 057340 5969 62668 
ACTCLB 05625 6068 60824 
ACTCLP 05745 600 62948 
ACTCLR 05574 5967 60254 
ACTCOP 056550 5977 abt 4 
ACTCRC 057354 5998 62728 
ACTCSE 056076 597 60544 
ACTCST 056170 597 60704 
ACTOLL 057172 599 62348 
ACTOME 056476 6009 Oise 61264 
ACTDMQ 056470 6010 61254 
ACTOMS 056446 6008 61204 
ACTOMX 056504 61278 
ACTECH 057250 5997 62504 
ACTEKE 060 6399 64024 
ACTEKT 0600 6019 63798 
ACTEQO 056672 5981 61684 
ACTETB 057550 6016 63144 
ACTEXT 056026 6013 60434 
ACTEXK 060172 6384 6396 64134 
ACTHLP 055762 5971 60314 
ACTKAL 057566 5772 6018 63194 6400 
ACTKTB 057560 6017 63178 
ACTLIS 057162 5992 62314 
ACTLLP 057462 6004 62968 
ACTLPX 057500 6291 6293 6295 6297 63004 
ACTLKXX 057542 6264 6285 6288 6301 63108 
ACTMEX 057116 6161 6177 6199 6204 6210 6213 62174 
ACTME1 057052 6188 6190 6192 6194 6196 62034 
ACTMOP 057432 6001 62904 
ACTMOS 057362 6012 62754 
ACTMSO 056752 598 61874 
ACTMS1 056760 598 61898 
ACTMS2 056770 5984 61914 
ACTMS3 057000 5985 61934 
ACTMS4 057010 5986 61954 
ACTMSS 057020 5987 61974 
ACTMS6 057036 5988 62004 
ACTM2K 0957220 6221 6229 6232 6235 6238 62428 
ACTNO 057240 59 624678 
ACTNUF 055732 6006 60224 
ACTNUL 055740 5966 60234 
ACTNUM 056560 5978 61454 
ACTOPM 056652 5979 61634 
ACTPAS 057134 5990 62234 
ACTPRO 057370 5999 62788 
ACTPRT 056036 6011 60454 
ACTQFG 057374 6267 6270 6273 6276 62808 
ACTRDE 027054 4126 4160 41638 
ACTRDG 027046 4125 aloes 
ACTRDS 027024 4124 4157@ 
ACTRDX 027062 4164@ 


Kk 3 
SEQ 242 


CZKMSAO KMS11-BD/BE DCLT MACY11 30A(1052) 23=DEC=82 14:01 PAGE 244 
CZKMSA.P11 2 OO E=B 13:54 CROSS REFERENCE TABLE == USER SYMBOLS 
ACTREC 057154 5991 62284 
ACTREX ps6re 4120 414654 
ACTRHL 026720 4119 ties 
ACTRLG O26? 4 4121 41488 
ACTRLP 057472 6092 62984 
ACTRNF 026710 412 aitte 
ACTRNL 026716 4118 41314 
ACTRPS 057422 6000 62878 
ACTRSL 067019 4122 41524 
ACTRUN 056052 5970 60494 
ACTSEX 057062 6014 ocore 
ACTSHO 822038 5968 60284 
ACTSHW 05631 6060 6074 60934 6112 
ACTSLS 057646 6015 63348 
ACTSTE 056512 5974 61324 
ACTSTS 057346 5980 62694 
ACTSTT Babegs 5975 61354 
ACTSTX 056530 6133 61364 
ACTSZE 056540 5976 61394 
ACTTAL 057212 5995 62404 
ACTTLP 057442 6002 62924 
ACTTRA 057202 5994 62378 
ADDCC 027422 42938 5895 5939 
ADDC1 027516 4295 43104 

DR = 000020 G 221584 
ADRINV 066266 787 79164 

LCK 061050 282 66194 
ALCK1 061134 6676 66824 6737 
ALCK2 061210 6683 66944 6727 
ALCK2A 061470 6733 67398 
CK3 061530 6697 6743 67494 
ALCK3A 061652 6761 67738 

CK 061674 6775 67788 
ALCK3C 061664 6769 67764 6784 
ALCK3D 061634 6764 67674 
ALCK4 051716 6750 67824 
ALCK4A 061730 6781 67854 
ALCKS 661110 66754 6777 
ALCKSB 061120 66784 
ALLTR 061110 6551 6574 6598 66744 
ASSEMB= 000010 1996 
ATVMOD= 090027 23514 983 

AD 010205 27798 276 6869* 
BADCHR= 000051 369" 075 
BASM1 020051 2534 4237 
BASM2 Benne tt 7 4256 
BASMS 02003 ; 53@ 864248 

CLK 016671 2534 $452 
BDLBAS 015434 31608 5774 7214 7606 7652 
BOLEND 013634 1834 5776 
BDLMAD 013432 3165@ 7418 74908 
L 013430 31644 74198 74208 7435 74918 74948 7504 
BITO = 000001 G 1884 271 2299 2426 
B1T00 = 000001 G 1774 188 
BIT01 = 000002 G 1764 187 
B1T02 = 000004 G 21758 2186 


L 3 


EQ 243 
HSAQ KMS11>BO/BE_DCLT MACY11 30A(1052) 23=DEC=-82 14:01 PAGE 245 sei 
SA.P11 23=DEC=Be 13:54 CROSS REFERENCE TABLE -- USER SYMBOLS 
3 = 000010 G 21748 2185 
= 000020 G 1738 2184 
= 000040 G fen 183 
= 000100 G 171@ = 2182 
= 000200 G 170" = 2181 
= 000400 G 1698 2180 
= 001000 G 21688 | 3179 
= 000002 G 1874 3272 2300 
= 002000 G 2167" 230? 2420 
= 004000 G 2166# 2308 2419 
= 010000 § 21654 2418 
= 020000 G 2166m 
= 040000 G 1638 2416 
= 100000 G 2162" 2415 74237495 
= 000004 G 2186@ 2273 2301 
= 000010 G 21858 2274 2302 
= 000020 G 21848 2275 = 24252434 
= 000040 G g1B3e 2276 7316 
= 000100 G 21824 2303 7316 
= 000200 G 21818 2304 2424 2430 
= 000400 G 2180# 2305 2403 
= 001000 G 21798 2306. =. 2421 
BLDBEX 027630 4354 43580 
BLDBUF 027520 4336" 5757 ©5764 «= $896. = 5940 6089 = 6526 
DB1 027530 43418 
027572 43498 4356 
027610 43528 © 4357 
= 000400 G 22198 
013372 31308 7695" 7697" 7702" 7735* 77718 
013374 3131# 5486" 54878 
013376 3133@ 67135" «7139 «= 7172" =—7190* = 7193® = 7202 «= 7205" «= 7213" «7216 7231" 7235" = 72428 
Taube 7253+ 7259" «7316+ 7318 = 7367*  7371* 7376 7380" Mate 7437 7500" 75058 
7514" 7522e 7561 7724 7728 7733 7811 7852 
013400 3136# ©5490" 5491" 7243" 7254" 7317* 7368 §=«—7432" «75018 «75178 
013402 31368 © 7502« 
013404 31378 65494" 5495" 
013406 3139" 67192" 74342 75038 
013410 31408 5498" 5499 7435* 75048 
017036 3253 5868 5910 
BUFLIM= 001000 2232# 2692 2693 2694 «= 4294-4306 = 4466 «5865 «5907 = 60826464 (506 
BYTBIT 010132 2750# = 4158* 4162" 4242 «6 121* «6 125¢ 
CABLE = 090002 22558 
CBLLOP= 000045 23654 3095 
CCURAD 01006 Zee 445B* 4466 44 70* 4472 4A 74* 5753" 5761 5938 S944" 6067" 
= 00000 23314 3030 
CLEAR = 000001 529e 2968 6025 
CLIACT 055540 5820, 595 
CLIALN= 000007 g3een 307 
CLIALP= 0 321# 63017 «= 3026 «= 3078=— 4190 
R 014352 2538 6180 
L 014125 2538 6305 
F= 000003 23188 
= 000002 S174 2965 2967 2969 2971-2074 2976 ©2984 «2986 © 2988 2990-2992 2995 
2397 $012 30143024 308130355037 30403043 $046 $052 8054 3056 
058 306 062 3066 3066 3071 3076 3081 3083 3088 3094 3096 3098 
3100 = 3105. 3112S 3120 4186 = 4197 
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SEQ 245 
CZKMSAQ KMS11=80/BE DCL MACY11 30A(1052) 23=DEC-82 14:01 PAGE 247 
CZKMSA.P11  23=DEC-82 13:54 CROSS REFERENCE TABLE == USER SYMBOLS 
CMSG3 = 000023 47" 3057 
CMSG4 = 000024 488 3061 
EMSGS = 000025 498 3059 
MSG6 = 000026 50# 3063 
NICLN 011516 935¢ 5625« 
CONOTH 010202 7778 
CPTR 010154 766# 4339 «4343* 94641" «= 4757* «= 4813 4832" «5 756" 5760" 5893" 5898 5937* 5942 
6065* 6078* 6550" 6685 6690" 6706 6778" 6785 6836  6840*  7066« 
CPIRLS 007542 2705@ 4587" 4604 4715" 4734 
CPTRR 01015 e769# 4713 4754 4897 498E 4993 6713* 6718  6729% 6745% 6783 6832" 6842 
® ® 
CPTTLS 007562 22 068 (Bis: 4832 
CR 021650 g53a S640 6572 
CRC = 000040 23608 
cRCB ‘= 000020 2275# 6272 
R 007646 2716# 6484* 7532 7570 7615 7659 8049* 
CSHEXP= 00000 23348 3002 
CSHTRN= 000007 2335¢@ 3004 
CSRADR 067276 8194 82188 
CTOT.C 010060 27288 460% 4468 4470 4476" 4481" 5744" 5906 5917 5945" 6062 6452 + 
C = 000000 24028 2859 ; 
CTX 007644 3715#@ 6483* 7534 7568  7613* 7968 / ; 
CURADD 010156 57678 434143464348) 424 35B® «4377 = 4379* «4 3B1e «=—S5755" «S761 «= S5BG4* «$900: 593K 
5942 6083* 6517" 6720" 6721" 6726 
cuRcc 010150 2764" 4293 4305 430B* 4309 4342 43467 4358 S75i* 5763* 6085* 6157* 6170 
6198" 6201" 6203" 6452* 6453 6455 6460 6503  6506* 
SAU = 000052 1996" 5700 
CS$AUTO= 000061 1996# 5610 
RK = 000022 1996@ 5545 7143 7556 7718 7806 
C$BSEG= 060004 9968 
-UB= 000002 1996" 
CSCEFG= 00004 1996# 
CSCLCK= 000062 1996# 5410 5420 
C$CLEA= 000012 1996" 5657 
C$(LOS= 000035 19968 
C$(LP1= 000006 1996" 
C$CVEC= 000036 1996" 
C$OCLN= 000044 1996# 5376 5543 
C$DODU= 000051 19968 
CSDRPT= 000024 1996# 
C$ou = 9000 1996" 5678 
C$EDIT= 090003 1996# 2060 
CSERDF= 000055 19968 
CSERHR= 000056 1996# 
CSERRO= 000060 1996#@ 7801 8003 
CSERSF= 000054 19968 ; 
CSERSO= 000057 19968 6854 6873 68877152 7548 7596 7640 7711 7959 8020 8041 8086 
(SESCA= 10 19968 
C$ESES= 000005 19968 
C$ESUB= 000003 19968 
C$ETST= 000001 1996# 8160 
C$EXIT= 000032 1996# 5586 5649 5799 5855 
C$GETB= 000026 1996# 
C$GETw= 000027 1996" 
CSGMAN= 000043 1996# 3696 5639 5809 6996 
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SEQ 246 
CTKMSAQ KRS11=80/BE DCL MACY11 30A(1052) 23-DEC+82 14:01 PAGE 248 

CZKMSA.P11  23=DEC-82 13:54 CROSS REFERENCE TABLE == USER SYMBOLS 

CSGPHR= 000042 1996# 5475 

C$GPLO= 00003 1996" 

C$GPRI= 000040 1996 

CSINIT= 000011 1996# 5594 

CSINLP= 000020 1990" 

CSMANI= 000050 1996# 5793 

C$MEM = 000031 1996" 

$MSG = 000023 1996# 3287 3300 3314 3331 3347 3365 3384 3400 3427 

CSOPEN= 000034 1996" 

CS$PNTB= 000014 19968 3283 320633103327 33433361 3380 © 3396-3413 3423 

CSPNTF= 000017 1996# 3643 3651 G88 371637264138 42404281 42894505 S211 5254 
5455 5525-5531 540 5734 57 5829 5838 5872 5887 5914 5931 6037 
$108 6153 1836259308454 Gus 470 963 7039 7082 

CSPNTS= 000016 1996" 3780 3789 3799 $809 $819 582958505875 58873900 3911-3941 
3958 3974 3986 3997 4011 4021 4054 4071 4086 4107 5038 506%  634€ 
6355 6366 «= 6375 6394 

CSPNTX= 000015 1996" 

C$a10 = 000377 19968 

C$RDBU= 000007 1996# 5432 

C$REFG= 000047 1996 5381 5386 5391 5397 

C$RESE= 000033 1996 5404 5632 

C$REVI= 000003 1996# 2059 

C$RFLA= 000021 1996# 

C$RPT = 000025 19968 5344 

C$SEFG= 000046 1996" 

C$SPRI= 000041 1996# 5584 5635 

C$SVEC= 000037 19968 5560 5570 5577 

C$TPRI= 000013 19968 

COSO 6276 7884 79458 

COS1 066306 7885 79488 

COS2 066270 7886 79228 

COS3 066270 7887 79238 

COS4 066362 7888 79678 

COSS 066270 7889 79248 

COS6 066270 7890 79258 

COS? 066270 7891 79268 

C1SO 066270 7892 79278 

C1S1 066270 7893 79288 

C182 066270 7894 79298 

C1S3 066410 7895 79758 

C154 066416 7896 79878 

C155 066532 7897 8006" 

C156 066270 7898 79508 ‘ 

C157 066634 7899 80338 

C250 066700 7900 80484 

C251 066740 7901 059" 

(252 066270 790 9318 

C253 066270 7903 ©7932 

(254 066270 7904 79338 

(255 066270 7905 7934e 

(256 066270 7906 79358 

C287 066270 7907 79368 

C350 066746 7908 80634 

C351 067004 7909 80718 

C35¢ 067050 7910 8076" 

(353 067046 7911 ©8081" 
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SEQ 248 

CZKMSAO aah 224 CLT MACY11 30A(1052) 23=DEC-82 14:01 PAGE 250 
CZKMSA.P11 23-DEC-82 13:54 CROSS REFERENCE TABLE == USER SYMBOLS 
DVEMI11 022465 32534 7954 7961 
DVEMI4 022514 534 7988 
DVEMIS 0 $3] 534 8009 B0es 
DVEM) 8 05 534 O08 804 
evens $$2 53a 539 £339 

VEM 0 5 534 67703 771 
DVEM33 bs¢/66 2534 B086 8088 
DVEM3S4 025030 2534 809 8099 

VEM4 022330 it £286 7596 
DVEMS 022407 534 7632 7642 
DVEST 065514 S330 
DVES1T 065432 72238 
Dvi = 000012 sone 3595 
DVINEX 063702 128 7225 72754 
DVINIT 063024 6500 eiSae 
DVINS 067204 G 5567 81384 
DVINO§ 063074 71398 = =67145 
DVINOO 063040 7127 71324 7156 
DVINI 063154 71624 8 7177 

VIN2 063230 7176 71798 
DVM14B 022563 32534 7992 
DVOUTS 067214 G 5574 81464 
DvRCC 010106 27394 §4992* 9 7063* 7074 7076* 7077* 7425 7655* 
DVRCLS 007602 27074 =6—4585* 84775" 864795 
DvRCT 010110 2740# 4775 4795* 6740" 6742 6833*  6893* 
DVREX 064336 7408 74398 
DVRTB 010102 27378 «6700 7656* 
DVRKA 010104 27384 4990" 6698 7061* 7073 7076 7424 7654* 
DVRXQ 064 4994 7068 74064 
DVSET 063560 72504 7265 
DvTCC 010066 27318 6689" 6752 7015* 7023 7497 7609* 
DVICLS 007612 2708# 4853" 4871 4923 

010072 27338 4640" 4853 4871* 4918* 4925" 4947 6757* 6763 6768 6774 

DVTREX 065420 7616 76604 
DVTR 064506 7479 75064 7531 7552 7567 
DVTR4 064764 7533 535 75664 
DVTR4A 065010 7569 75748 
DVTR4B 065132 7584 76004 
DVTR&C 065200 7598 76128 

VTRS 065204 7571 76144 
DVTR5SB 065346 7630 76464 
DVTRSC 065414 7644 76584 
DVTTB 910070 27324 86753 7610* 
DVTXA 010064 27308 6687* 6751 7012" 7022 7496 7608* 
DVTXRX 06434 6694 7020 7071 74788 
ECHO = 000037 2359" 3036 
ECHOB = 000004 22734 $051 6242 6252 6262 6703 
EDABO 020022 2894 2538 
EDDCK 017603 2889 2538 
EDDDE 017716 +43 2534 6875 6889 
EDDER 017566 288 2538 
EDDLE 017661 2891 2534 6856 
EDDVI 017633 seee 2538 
EDEOP 017751 $52 253a 
EDMOS 017765 2538 
EDRXC 017540 2886 32534 


CZKMSAO ehh ott DCLT 
23-DEC-82 1 


CZKMSA.P11 3:54 
EDRXQ 017513 2885 
EDTXC 017464 884 
EDTXQ 017440 + 
EFM11 017363 2538 
Erne 617598 2534 
EFT3C 020330 2538 
EF .CON= 000036 G 21954 
EF .NEW= 000035 G 21968 
EF. .PWR= 000034 G 21978 
EF .RES= 000037 G 21948 
EF.STA= 000040 G at 
EKTB = 000065 3814 
EMSGO 002215 2467 
EMSG1 002216 2468 
EMSG 002217 2469 
EMSG 002220 2470 
EMSG4 002320 2471 
EMSGS 002412 sere 
EMSG6 002513 247 
EMSGB 002643 2475 
ENADD 010130 27498 
ENDALL 025102 37468 
ENDEVT 026606 g536 
ENDHWL 067276 82134 
ENDIT 033646 5394 
NDQO = 000017 23438 
ENRDST 011512 29318 
NUM = 000017 22308 
7595 
80394 
OP = 000024 22948 
ERRBLK 013712 G 32124 
ERRCNT 010124 27478 
ERRMSG 015710 G 32114 
ERRNBR 013706 G 32108 
ERRTHR 013640 31888 
ERRTYP 013704 G 32094 
ERR1 023340 G 32738 
ERR10 023430 G 33034 
ERR13 023460 G 33204 
ERR14 023512 G 3336 
ERR2 023402 G Hise 
ERR2 623542 G 33524 
ERR2 023600 G 3369" 
ERR24 023644 G 33884 
ERR25 023700 G 34034 
ERx = 000100 23034 
ETRB = 00 23784 
—E™ = 000200 23044 
Ev. = 000 G 22134 
EVMCTS 021613 2870 
EVMDCD 021623 872 
EVMDSR 021617 871 
EVMOCG 021473 2534 
EVMOHD 021516 32534 
EvMOST 021576 32538 
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(1052) 23=DEC=82 14:01 PAGE 251 
OSS REFERENCE TABLE -- USER SYMBOLS 
3938 
4261 6126* 
3866 40934 
622 5626* 7159* 7310 
68524 6855 68718 6874 68854 6888 7150#@ 7153 75468 
7641 7709# =§=7712 77968 =§=7797 7957# 7960 7999# 8000 
80848 8087 8095# 8098 
8001* 
he 6851* 6870" 6884" 6918 7544e 7590" 7636" 7707* 
* 
8000* 
7976* 
7998* 
7551 7714 7799 8089 8100 
7643 8044 
6596 6625 6766 7065 7629 
6314 6398 
6625 6736 7017 7029 7583 
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CZ7KMSAO KMS11-BD/BE DCLT MACY11 30A(1052) 23-DEC-82 14:01 PAGE 253 
CZKMSA.P11 23-DEC “B82 13:54 CROSS REFERENCE TABLE == USER SYMBOLS 
FSCLEA= 000007 19964 5619 5656 
FS$DU = 000016 19968 5666 “$20 
FSEND = 000041 19964 1998 288 3301 3315 3332 3348 
5345 5586 5595 5611 5649 5658 5670 
8144 8136 g332 8161 8217 8255 

FSHARD= 000004 19968 817 215 

F$HW = 000013 19968 ghi3 gles 

FSINIT= 000006 19968 369 593 

FSIMP = 000050 19964 3430 5586 5649 5670 5692 5799 

FSMOD = 000000 19964 199 255 

FSMSG = 000011 19968 36 $66 3290 299 3303 3313 
3369 8 88 3399 403 3426 

FSPROT= 000021 19968 5353 5360 

FSPwWR = 000017 19964 

FSRPT = 000012 19964 5333 5343 

FSSEG = 000003 19964 

FSSOF T= 000005 19968 

FSSRV = 000010 19968 3512 3537 8138 8142 8146 8150 

F$SUB = 000002 1996@ 

F$Sw = 000014 199684 

FSTEST= 000001 19968 5716 8159 

GARPEX 030734 4895 48998 

GARPFiL 030672 48918 67 

GARP1 030706 48934 4898 

GATCEX 0310 4921 49268 

GATCFL 030744 49164 676 6773 

GATC1 030764 49194@ 4924 

GETCL 054576 4H He's 5831 5840 5843 5850 5862 

GETIND 031102 4713 4732 4773 4793 4811 4830 4851 

GETI11 031106 49658 464969 

GETI2 031126 49704 

GETPRM 033156 5400 54698 5478 

GETRCL 024672 36908 3718 3728 3734 3740 3743 

GNTKPR 031030 49408 4948 6684 

GNTX1 031046 4941 49438 

GNTX2 031040 49428 6945 

OOD 010204 27788 3278 0068e 
GOxOUT 066676 80454 
GRPTCP 030474 47538 6521 6831 
GTRA2 054172 57246a 
GTRAS 054234 5727 5737a 
GTRAG Daeeeg 57428 
GTRAS 054512 573 5785@ 6927 6965 8110 
GTREX 069470 6480 64828 
GTRX2 060606 65028 6925 7031 7089 
GTRX2A 060644 6505 65084 
GTRX2B 060724 6510 65278 
GTRX2C 060614 65034 
GTRO 060174 2806 5846 64218 
GTVIND 030402 451 4549 4643 46928 6893 4919 4963 
Givi! 030406 46938 4696 
GIXRXB 054172 57234 
GSCNTO= sais 19968 
GSDELM= 000 ¢ 19964 
G$D1SP= 00000 1996@ 8184 
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PAGE 254 


8198 8202 8209 
8198 8203 8209 
21469 = 2180-215? 
5361 $571 5589 
8155 8162184 
2311 239% = 2410 
71237281 ~=S 7387 
8218 

6584 4642* 4644 
4920 4922 4940 
6828 6988" 70528 
64118 

7720 «= ?722,—Sts«7BO? 


6 
49420 
72218 


7810 


SEQ 252 

3232 3250 3256 

5621 5652 5668 

8235 8240 8248 

3207 3225 3253 

7441 7482 7508 

46972 4753 4774 

4944 4970*¢ 6410* 

7224 7359e = 7361 

8139 


I 4 
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INVCMD 069279 978 79408 

INVEC 013412 3143@ S5501* 5568 

1SR = 000100 G gg ile 

1x— = 004000 G 2228 

ISAU = 900041 19908 56884 57018 

ISAUTO= 000041 1996@ 56054 56114 

ISCLN = 000041 19964 55198 5649 56588 

1$dU = 000041 1996@ 56664 56794 

ISHRD = 000041 8177a $186 ge i7e 

ISINIT= 000041 19968 369" 86 55954 

1$MOD = 000041 19964 13985 95228 

1SMSG = 000041 19964 32738 B84 32908 33018 33038 33158 33208 33328 33368 33488 33528 33668 
3369e@ 3385@ 33888 34018 34038 34288 

ISPROT= 000040 19968 53534 

ISPTAB= 000041 19964 

ISPWR = 000041 19964 

ISRPT = 000041 19968 53338 5345a@ 

ISSEG = 000041 19964 5715 

ISSETU= 000041 19968 

ISSRV = 000041 19964 35128 35398 81384 81448 81468 81528 

1$SUB = 000041 19964 5715 

ISTST = 000041 19968 5715@ $799 5855 81598 81618 

JSJIMP = 167 19968 3430 5670 5692 

KADR 067200 8077* Bien 

KALL = 000064 23804 117 

KDATA 067202 8078e 3) 300 

KEYWD1 003246 26308 730 3736 3742 4142 4145 41498 41538 4159¢ 5371e 5637 5771« 5842 
5844 5847 5851 5857 5860 6025* 6028 6041¢ 6043¢ 6045* 6049¢ 6059 6073 
6122e 6132" 6135" 6207 6212¢ 6314 63178 6320 6335" 6398 

KMLTYP= 007726 4428 7191 

KMSLOP 014167 2534 

KRUN = 100000 261584 7137 

KTRB = 000063 23798 3113 5771 6317 6320 

LCLKEN= 000100 22658 5415 

LCPREX 030206 4551 45534 

LCPRLS 030160 45484 6548 6595 6624 

LCPRL1 030210 4552 45808 6712 

LCPR1 030166 45498 

LCPR2 Bente 45848 

LCPTEX 030354 4645 46488 

LCPTILS 030306 46408 6570 6594 6623 

LCPT? 030330 46434 

LOF IRM RE 55098 5546 

LORCLS 030532 47738 8=©6741 

LDRPLS 039434 4519 47138 6680 6714 6730 6746 

LOTCLS 030632 4647 48518 6758 

LOTPLS 030572 4646 48114 $62 

GDVE 024028 5 do 7545 591 7637 7708 7795 8118 

LINEST 011510 $3 Os 78; opeae 8065e 

LIS = 000006 asco $e 1 7030 

LISCK 062602 § 26 O38 

LISCKA 06264 344 708 7087 

L1SMOD= ; $3 4a 44 34 

LISP 016535 te 056 

LMDLOP= 000046 § yg rk 3032 

LNCNT 010114 74 635 3637¢ 36462" 6339 64978 
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1134 
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MODCSR 015498 149@ 5505* 7203 
MODE Bigs 2 8204 $36? 

MODES 003334 6644 021 
OC= 000003 22588 
MODREM= 000004 seeee 
011336 8554 
MODTYP 010216 27884 3596 5766* 5786 6113 6220" 6223" 6228* 6231* 6234" 6237* 6240* 6253 
6300 6527 6732 6760 7030" 7088* 7126 
MOMSGS 011356 28708 
MOP = 00004 Ted 3634 
MOSC = 000056 23748 Oe 
moo 016326 2664 2538 
M01 016336 2665 32538 
M02 016347 2666 32534 
M05 016357 2667 32534 
M04 016366 2668 32534 
MOS 016403 2669 32534 
M06 016410 2670 32534 
MPLY 010046 27234 4581" 4668 4671* 4753 6459* 6515* 
MSC = 000016 22918 3623 
MSG 002732 2583 25918 
MSGLIM= 000017 ite 2697 2698 2699 2700 4469 5880 5924 
MSGTRN 017054 2534 5869 5884 5911 5928 
MSGTRU 017105 3253@ 4300 
MSGTYP 010146 27628 4344 5750* 5762* 6084" 6163* 6187 6189* 6191* 6193" 6195* 6197 6200 
* 

$GO 002214 2467 2482 24924 
MSGOC 002144 24678 

$G1 002215 2468 2483 24948 
MSGIC 002146 24684 

G2 002216 2469 2484 24968 
MSG2C 002150 24694 

G3 002217 2470 2485 24984 
MSG3C 002152 24704 
mS 062220 2471 2486 25004 
MSG46C 002154 24718 
MSGS 002320 247 2487 25148 
MSG5SC 002156 24728 #8 $751 5763 6085 6198 

$66 002412 2473 = 2488 25284 
MSG6C 002160 2473. 6201 
MSG8 002642 5 2490 25534 
MSGBC 092164 24758 
MTIPLEX 0630400 4669 46734 

TPLY 030356 4583 46684 4672 4756 6462 6516 
NAKMSG 0135664 197@ 01 
NAKROO 0233506 204 2534 
NAKR1 023075 197 2534 
NAKRI6 023235 $08 32534 
NAKR17 023256 320 2534 
NAKR 023126 bs 2534 
NAKR 023155 199 Sie 
NAKRB 023172 200 2534 
NAKRO 023215 201 2534 
mor use se Bley ser 
NO s §000%6 23584 3028 6247 6250 6281 
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N72$ 01301 0728 
N73$ 813095 3058 3074" 

N80$ 011744 2965 29798 

N81$ 011750 age" 

N82$ biSohe 98 34-94 

N85$ 012034 985 986" 

N84$ 815988 2987 29884 

N85$ 012100 2989 29908 

N86$ 012130 2991 34494 

N87$ 012156 2994 $37 a 

OFSET 010162 27698 443 6861* 6879 

OPBFPT 002514 25464 7079 

OPBUF 002520 44 25478 6173 6991 6998 7006 7012 7013 7025 7027 

OPCNT 002162 24748 8 6171* 7010* 7014 7015 

OPEND 002642 25484 6993 

OPRMM 016546 32534 7000 

OPRMSG= 000015 teh 3069 

OPTYP 013420 1464 

OPVAR 010116 27448 5642 6493* 6916 8060+ 

OPVAR1 010120 27458 =—64948 

OTINT = 000002 23008 160 7373 7375 7557 7560 7720 7722 7807 7810 

OUTEND 066164 7855 78808 

OUTHDL 066040 7378 7564 7727 7814 78464 

OUTVEC 013414 3144 $502" 5503* 5575 

OVRCNT 010144 27578 

OSAPTS= 000000 19964 2042 

U = 000001 19964 20094 2074 
OSBGNR= 000001 19964 20094 2068 
OS$BGNS= 000000 1996" 2034 
U = 000001 19964 20094 2076 

OSERRT= 000001 1996" 20094 2084 

O$GNSW= 000000 19964 2038 

O$SPOIN= 000001 1996# 2009 2100 

O$SETU= 000000 19964 2028 8251 

PARAM 010224 27954 3599 3631 5769* 5789 6116 6242* 6252* 6262"  6280* 
6479 6504 6569* 6620 6703 6709 6780 6824 6990" 7054* 

PAS = 000002 22448 6223 6253 6732 6760 

PASC = 000042 23624 3104 

PASMOD= 000030 23524 2985 

PASS! 002644 2568 

PASS2 092645 25634 

PASSS 902646 25648 

PASS4 002647 25654 

PCADD 019210 1454 7694" 77708 

PCK 016510 2534 5046 

PCLKCT= 001600 22678 5426 

PCLKEN= 000115 $5998 5428 

PCPM 017331 2538 

PEC 016520 3253# 5050 

PLCK 061022 $5¢ 65944 

PMS 016527 2538 2026 

PNCK 016506 32534 049 

PNEC 016516 52534 5053 

PNMS 016525 3253@ 5059 

PNST 016475 32538 5045 


7061 7062 
8148 
6283* 6424 
7350 


7084 


6457 
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CZKMSA,P11 23-DEC-82 13:54 CROSS REFERENCE TABLE == USER SYMBOLS 

PNT. == 001000 G $659" 

PNITRB 026616 89 4063 4078 41014 

PRI = O¢00 G gseie 

PRIOR 067357 04 be 18" 

PRIOO = 000000 G § Oye 558 

PR1O1 = 000040 G 08a 

ad 4 = 000100 G 22078 

PRIOS = 000140 G 22064 

PRIO4 = 000200 G 22058 

PRIOS = 000240 G 22044 

PRIO6 = 000300 G scoe" 

PRIO? = 000340 G 05 22028 5634 

PRNT = 000055 23738 2960 6045 

PROTO = 000041 23618 

PROTOB= 000040 $658" 6278 

PRIETB 025764 920 3921 3926# 3927 3928 3929 3930 3931 3932 3933 

PRIEO 026002 3927 39348 

PRTE1 026034 3928 39468 

PRTE2 026036 3929 39498 

PRTES 026074 3930 39634 

PRTES 026140 3931 39798 

PRTES 026170 3338 39898 

PRIE6 026224 393 40014 

PRINOS 016612 32534 3777 

PSCNT 010122 ths 5643 6495* 6914" 6917 

PST 016477 2534 5042 

PTREND 007536 27028 

PTRTAB 006406 26978 4452 4457 4641 5745 5878 6070 6077 6475 

PTRI5, 006502 26984 5748 5921 6054 6064 6476 

PTR23 006576 26994 4580 6477 

PSACT 003370 26814 3707" 5135 5820* 

PSBUFA 003364 26794 3705* 5093 5818+ 

PSCNT 003572 26824 52351* 5238 5300* 5307* 5312 

PSEXIT 031624 5096 51294 5152 5157 

P$GDBD 003401 26864 3690* 3710 5150* 5155* 5163 5213* 5256*  5806* 5823 6155* 6209"  626%* 
6302* 6322 6323 6336 6382 6447" 6449 

PSNNUF 003400 26854 3691* 3720 4130* 4154" 4164* 5807* 5832 6022* 6050" 6058* 6072" 6127 
6217* 6224" 62463* 6310" 6319" 6334" 6381* 

PSNUM 003374 2683# 4157 4163 5226* 5229* 5231 5232* 5234* 5238* 5240" 5246" 6120 6126 
6147 6157 6159 6287 6386 

PSRADX 003376 26844 5186" 5189" 5196" 5205 5236 5244 

PSTREE 093366 $$50" 3706* 5094 5819 

P$TRV 931506 709 5092" 5822 

ir Bes Ha Rees 

QRx = 000004 Saey" 4517 6347 6596 6625 6675 6696 6735 6744 6766 7065 7407 7410 

om™x = 000010 23028 6571 6625 6682 6736 6749 6762 6779 7017 7029 7478 7480 7611 

QUALFG 003250 ti 3708* 5821* 6139* 61428 6145 6247* 6250 6263* 6281 6284" 

QUALVL 003252 2633#@ 5902* 5946" 6136" 6159" 6160 

RAMI = 001000 24218 

RAMO = 002000 24208 5511 

RDMPE = 000010 Siois 4194 

ae a oe 

RDYI = 000020 24348 7172 7193 7205 7216 7235 7246 7259 7318 7371 7380 7437 7505 


, 2 


14:01 PAGE 265 


82 SEQ 263 
ABLE -- USER SYMBOLS 


CZ7KMSAO_KMS11-BD/BE psuy 


MACY11 30 
CZKMSA.P11 25-DEC- C 


~e 


“wr 


7724 7841 7852 


5448 5457@ 


RHLP 015646 


FAOCAOMOOWNAC OWN EWN 


5796 6051* 6115 6287" 6921 6923* 


r*] 
v 
= 
= 
v 
nuownw 
So 
So 
So 
o 
oO 
_ 
OWE & F&F ODO MMOS — SW Ow 


MO OMNVOWMOWWIWIWNYVOSF@OOOn Co 


4057 4073 4089 


PP WWE SWWEWNWWW FS Sun oN 
SO ON NN OONININIO HP HS FA OO 


wD 
= 
~J 
o 
v 
" 
Y 
So 
So 
oO 
& 
~N 
RIRIRVNINNNINWWIRIRRNRNNININNINIWRINUTUWINNIN NOW 


—— Fa 
FSNAOOO 


909 2910 38908 
3861 865 38684 


7702 7735 


6490" 8050 8056* 
6489* 7618 7628* 


964 5844 6049 


MRMIMNVINWWNWw 


“nw 
o 
J 
Ess 
so 
Oo 
* 


rs] 
< 
o 
" 
So 
=] 
=] 
e 


7524* 7530 75 
* 6681" 6622" 68 


~NuwIoOoN 

& © 
onw 
uw 
worm 
coo oO 


5747* 64778 
6597 6627 


RXSKEN 
RXSTAK 


wD 

E 

So 

o 

o 

~“ 

w 

= 
MONS & &PNMO Nw nownr 
On SOWF BEOWO 
QO Ws WMeu 
OMe OOWM 

RE 


6490 7627 8055 


G 5 


SEQ 54 
:01 PAGE 266 
11 30A(1052)_ 23-DEC=82 14:01 PAGE 266. 
AO KMS11=BD/BE DCLT MACY REFERENCE TABLE <= U 
CHEMGALPIT 2 8-DEE=B9'13:54 CROSS 
027074 41728 : 
Ris 702 417341748 
RI28. O27 12 4193 4195. 4197 42038 
mess ae ts tae 
Rigs (97160 cigs C192, 4196 «4196-42008 
R308 027260 et 
Rsos 097920 4186 41898 
908 
RSIS 027206 41908 
027230 4 
a ne 
ee iy Ba 
32538 , 706? . 
Sov; (051780 $4360 Saose 55110 71330 71340 7187e 7541 7705, iy, a {a wom 
13372 3 7169* - 7369¢ 74338 
= halape Se SR SS 5 2 rc ets * i rer 55 
: e 
se over RE aE SBIR. HG. ABE rate rave tetera 
SEL6 013406 a, 
Etc. = 061000 33008 7555 7627784 794979637988 
Serer = 0 2376" 3065 «5B ve 
SEIExP= 900010 esses $0, 382g 
MFO 17170 S54 5035 
17226 32534 
+ A bi scee tte $03 6028 6059 6073 6335 
SHOW = 000002 Ft4'y4 6093 6099 
SHTAB 003324 e584 6093 
SHTAP 016066 35839 © 6467 
SHTBR 016237 2558 6467 
SHTEND 003333 g5b1a 6096 
SHTIV. 016146 32338 639 
SHTLPA 016072 Hite ones 
SHTRE 016000 3553—e | 635 
SHTRH 016042 3681 388, 
SHTYPO 015720 g! Hite 
SHTYP1 SELAH th aT 
SuTYPS O1Szat 5651 50534 
ent yPS 015746 $2! Seas 
SHTYPS 015754 yet Soa 
SHTYP6 015761 yet 58 8e 
SHTYP7 01576/ sesie 104 
SHTYTB 003304 e83! otSe 5790 6117 
: 600012 23384 $080 61396145 
ies 3778 © 310 
T = 000061 
a 
geno 021675 2538 $582 


SEQ 265 


14:01 PAGE 267 
7326 8068 8074 


23=DEC=82 
FERENCE TABLE == USER SYMBOLS 


) 
E 


(1 
CRCS 


H—RKOTIOCOOKR— OS OWO00 OO FNM — OR — ODOMNMSA IO ORM 
MP BDUDOM ODOWV TS AUNAOOUMNDR NKR ORK—LhROS OMAK De IOUM ODO ST 
DOOCUMIMMM JF TF OOF DODDS AAAOOOSNVOIM FINNS OM 
REDUES YA MMM MMM MIM MMMM MMA MII WF FF AFF FTMMMMPMPMM 
AKRAAMBDDASA OO ST DHONAANAM— VUOG — DOG OMe SMOr OFM 
QUMKR —DOMGAK ONT RUA Om FT DOWKR Ce FROST MMOD TOM ODO 
DOO CMIMINIM FF TO OF F DODDAAAD OOO SK UOIM ST FON Om 
NIC NIC MI MMMM MMMM MIMI AF FF FF FMM AMO 
RMR AOR — DDOOMP FO TOOT DUO — ODOM DOD OM. OVD 
MQUmK ODOMMHK OF FRUNDO— FDO COS OMMNMODe— CUM Or D 
DOO — CIMIMMM FT TF OOP F DODDDAAP OS OOO KNW OCIM FT FNM OM 
RIDIN MIMI MMMM MMA MMM MMMM MIME 5 FF FF FMAM 


Me nr — ODF. DV OMOMEL MK — oO 


RUDI CUCUIMMMMMMMMM MMM MMM MIA A 


OVS TOR HOOSUDORK— Me 


UN —KR.AOWOMNMMN OODOVOOWA —OR-—KRNOOR K OMMDOT AO TORR — 
GPR AR OCW. O &— 7D — DO — CDOS ODO ODM OFA ATR MINE ED 
COD OCCUMMMMM F O OR. KR. DDWDDAAAAODOOUVOOMM FT TMM Or 
Pavratiaia* 2 sess suslaus sos sa spa sl elalal a 2 2 eo 2 2 el eel ee el el el el el a 


DWNWMO— — Ow OOK row 
H— DOMAIN ONE MAMA 7 
COCK VOOM ST FON Or 
SSF FT OMMMAMMAMNNNN 


KAUNDOOM ss DNONAN RK KNTOAMORKR Fv OMODWVOLHNIN RK FR HK UNDONOr- OO 
RR KH SR UO  MOOMO — FT ODONMOR. AON. DOK HR OK— NOM TOOK DUNT — 
MNOOOK FVUNODCOCOCUMMMM F TF OF-FKR. DODDOAAAAOOOK UMM ST TOM or 
PvaywaYatiatiatia* al: lavlat lata sled ddl dsdududuaduésuandusL A AAA LAn mem a ocala al al al al al a ala 


MACY1? 30A(1052 
SR 


DM  — CUO MIM OO F DWDM OMAMOR._ CO — DVAOR MR VER KAM VK OD OOO OF ONOA YO 
TF DOWDOR FF OUNNES FR. ODNAMMNDOMDe— TF ODDOW TF OUAONUMNDK NR OK NDOTOM— Oe Iu ooo 
RH AOUIM FU AOO RK MUA OOCONOUMMMM FF OR-KA.KR. DODWDOEOOOOOOCO— VUMOUM FT TAMAMMS 
PUTO ANT NT AC) alot) ol attain at al: loa hh" dled ed dd dial LdélduasLALAUA ALAA ALALAL A a me dala al al al al al al als) 


LT 
1 


we 3 dC 
25-DEC $82 13:54 


000000 


CZ7KMSAOD KMS11- 


CZKMSA,P11 
SVCGBL 


= 000001 


SVCINS 


SEQ 266 


) 
EFERENCE TABLE <= USER SYMBOLS 


MACVY11 30A(1052) 23=DEC=82 14:01 PAGE 268 
CROSS REFER 


Potty: DCLT 
25-DEC “82 13:54 


CZ7KMSAOD_ KMS11 
CZKMSA,P11 


» © . eeee eee 
Oe FT DOODUVOOOUMOTTO wo Lead anywwe © CoC, OMWwOo 
NRK OOOO TRO OC OyDO O- Con NOODO Nw DOMM ee 
DOOO— MMM 7 DO OMDO—— ~~ ow Ore--D CO COYWO wood + 
MMM OOOO OOOOrKf OOD mao man ® FORE HO UTCOPRO EO 
aR oe e ee ee © 
ROMP wR RK Re NnwWe ve Mr no oo MMMne DO AROGC MT CO 
NVR —MNOOG TK OOOOTrO mw Me NMKOODMOoD F~ Keo Meo WV 
DOOO— MMM TFT DO OMDO— ey ne wap QMeew OO KRM O COC 
MMNOOOOO0O0O OF f- OOD mao me mMToren~ MM FT ORD He 
R&R eee e a eee eee 
OWONUOMOOOVTyTrOOMNOY oo oro One mK— Ww MVM KR OW mM 
MOK—MNOWNEG Th. ODOM 7 OCD nw NANO —-TONOD WN MRK O We CO 
DDO O— MMM TF DO OWP O- (UN S hed -w—™ OMeKeN O KRMOFC OCC O 
MWNNOOOOOOOORKf DOW mao aonw MToo~ MM TORK HOR MM 
22 eeeaeee © = ee oe * * 
DDK NAMM OW MOO &— Seem am @oOow NON TO ~ OMKUN TOR bs 
— Oe MMO. 7 OR We TNO ow ror a—sru@eo — FS OOO NTO 
DDO Ore— MMM -F DA OW OF OU Me ovo omorwr © Ovor oor 
MWNNOOOOOO OOF OOD Lal?) omw MeTno~ MM FORK HOF ™ 
9 ea es ee a eee eee 
MOOT — OTN FSOOMMMeK— MN MT oOo Mae. DOoOmnmo — RK wWO -—Ow 
KN MM OW FTNMOOM—VUTOW DO Nu ROW ooonwrn =— DOWD COMO CO 
WD O-— CUIMIM TF DOOWMF OF CU MO - omMo omMmorwn OO wworc car wv 
MNNODOWOOOOOORFFDOODOD Mr o «on MTrOm~ MM TORR TOnm 
222 eeee a eeee ee 
FNOMOOOMTHOMAAMUNOCO-—- wr oOo rror enn K— ~~ ONMMaT CU OM 
HK—NDMNMAN MMOS VOOM Om - oor oowonmw CO @Ovwew ov © 
DWDDO—CUIMIM FT DOOMF OF FUN OO - oOomorw omouwm oO mooe oro wv 
MMM OODOOOOVOORLF FP DOODOODO Mm ao domino MTnor~ MM FOr, MOM 
222 eeeaee & a S e 
MAR CUP DOUMTNUDOD——-AAC OO Ww -—KTO WoOmMo mM WOO @awm oO 
HK—MOMOW|DRMDAOWMTRKNUCOW WTO - WwTowo Qoovonmw CO MMe OCUM & 
DOWD — CUIMIM TF DOOM OOK UN MO - oOMMm— nmmowm OO MMmOonr~ wrO ™ 
MNMMNOOOO OOOrFP DOOD Mm oO damwoa mMwror~ MM wTror MOrm 
2 222 ee ee a eeee fF 
MOOK OFF CUMS RK OMODOWM OFT mr O- Oe OekrwTOO w~ ere OO OY 
H—MDOMOM STP MIMN OMT — Mer DOU ww DOwmo- HP Me MOD Oe DO &- 
DMDODO — CUMIM TF DWOOr OOO-K- UW MO o- OM as OonnNCcoyTe YO MNO MeN & 
MMMNNODOOOOOOFFFDOOOD mu eoacoacoriw aD DMTro~ MO TrOr~ MOM mM 
= eeee 2 . ee ~ 
—r NOR. OOF We - OOTOUMR ON MO ue ove One VERO COMO OO Ww 
H—MOMOWMNT OM OWMMTOCO— —m WV VT CoeowwOoenr wo Oreo fom *- 
WDD — CUMIM TF TOO OOO MO Cooms.-— Snvuomwnnon Morr Mim Mm 
MMMNOOOOOOOFF-F- DODD Mum maarnnwm a DIATRHOR MM SOOM MOM MM 


COOTIROLINO-COMM = VOM AD @ ~ 
—MOWODT OPI. OOM TODO-—- PO VN OVO Nw ADNMM—MBDWOOMND wv 
DODO -— MIM TF TODO OKO N WO So @OHOKMMOoOMnoOoWJoo°orKr. ™ 
MMMNOOOOOOORLKF DOD MWN ~~ NOM TORLMMMMOer —& 


ee 
3355 


7 ee 
oor.vwyv ~owo oaowonm 
OMDVUOCDO TOO ODOM TODO — DW wh. OC Ovo NON KR KMRL MOVURTOMRKO MOT ww 
WOW — — MMM FDO OOORKW WH K—AOOUMO QOO KNOCK WVWONOMNOCRK., MOM mM 
MMMM ODODOOOOORRFA.COD MN BDL MME RK MOM TORL MMMM OR MOM 
22 22228 3 eeee eeeee ee eee 
DOOM FONT TOD — MRORMA NEM TOMOOWR NO — MO QIN ODO ON ODT ONO OLL ee 
Omer VOODOO ODOVTO ODOC BORE LOE BODO NNO OO AE DO OO MOMOAO SR — & 
DODO — HK — MMIN TF DOK NOORKMW KTR —DOORK—KROMIT TOUR MNOVOK WOM MOK OOMOOe NU 
MMNARNAOODOOOOOOKRRRRDWDD WMMDLALKR UMOMMMMNM OONMNMIPES OR. FR MAMI OF. COMIN GON 
=e Reeee = © 8% Bere ecm 
eee TSU ee eS em eS 
AOS — ODO OD ODO DA NDDOR OD FOF FARO HK MATAR. NO OP KR MR WA DOK MOM 
ROG — #— PIF DOD ODDO — NID OVO GOGO GO GO DP GON 08 FF MICUDOINI OOM — OF OF O Ovi Om MOSM 
MAMA OOOO OO ORR DOD HK NRK LRA — MANDARIN ORF CUCU OF DOU Ory 
-- -—ONwToO FINUNOCONOMOY Oo ~ ~ 
Coo ORKRAKRO LAVA OMMOO $ Lo ~ ~ 
oo Sarre es Or OCOOR.OMOe— - - - - 
coo ee NVA SRYSOS o °o — cS 
oo oo oo olelololololololo) =) o 2° Oo Oo 
i> ~o wor ° ~ 
- ~N a 
SZ ee ee ee ee 3 “SS - ™ nm J 
AK Www w Y <% = ry = 
wu yap ap ag S4222 
>> »?=>>>> ee ae « & a aurrel lw ve - 
yn Mmm DNDN Bee eee -—- = - = 


J 5 


SEG 267 
CZ7KMSAD KMS11-BD/BE DCLT MACY11 30A(1052) 23-DEC-82 14:01 PAGE 269 - 
CZKMSA.P11 23=DEC-82 13:54 CROSS REFERENCE TABLE -- USER SYMBOLS 
642* 6846" 6860* 865¢ 866 6882 6916" 75412 7543 7589¢ 7635¢ 7705*  7792¢ 
995 R038" OSes Bo. 11é¢ 

TEMPS 010176 27758 41 419 613¢ ; 26° 3666 4034¢ 4043 41018 4103 4891¢ 4899 
4916" 46926 036s 59e O6¢ 42e 9¢° 7793« 7996 8115¢ 

TIMERS 010274 28418 530 4e On ¢ 7352e 3=— 73 7526* 7536 

TIMER] 010270 28398 2s 25° 5725 5726 7132¢ 7164 7698¢ 7699 7774 7776 

TIMER2 piRe? 28408 $27 529* 

TIMMIN 01026 28354 52le 660 5457* 

TIMSEC 010264 836a 518¢ 519 3298" $023 5458¢ 

TIMTCK 010266 8378 515« 517* 5 65? 5459¢ 

* = 000000 4084 $262 

TOINOT 064622 aq3" 8 7562 7572 

TOIN] 064730 7537 7555@ 

TOIN2 064732 7557a@ 

TOORIO 065422 7166 7187 7199 7210 7228 7239 7250 7312 7364 7428 7483 7512 760948 

TOORI1 065434 76964 7715 7730 

roon it 065450 76998 7721 7734 

TOOR I 065534 770 77168 

TOORIS 065602 7725 77328 

TOORIS 065612 7729 7735@ 

TOORO 065622 7174 7261 7320 7325 77708 

TOORO! 065634 7773@ = #=©7802 

TOORO 5642 7776@ ©7808 7812 

TOORO 6002 7777 78054 

TOTCC 010160 27684 4293 4294 4305 4307 4309¢ 4380* 5742 5864e 5865 5899 5906« 5907 
5945 6719 6721 6724 

TRA = 000001 22438 6237 

TR = 000034 23568 2994 

TRBTOT 007634 27118 6326* 6340 6406" 6439 6459 

TRIBLS 007622 27098 3771 4694 6968 6327 6349 6404 6407 

TRIBN 007636 27128 3613 3626 3770* 3771 4694" 4695 4891 4899 4916 49268 4968 6700¢ 
6753 7233 7243 7254 7317 7368 7413 7419 7432 7485 7491 7501 75768 
7577 eth 7588 7610 7622* 7623* 76248 7634 7656 

TRVACT 031626 5123 5133@ 5149 5154 5159 5162 5182 5247 5270 5291 §315 

TRVALN 032420 5113 52748 

TRVALP 032354 5112 526084 

TRVBIF 031732 5109 51628 

TRVBR 031722 5108 51594 

TRVBRC 031646 5121 51408 5160 5165 5184 5257 5272 5293 §319 

TRVDEC 032026 5115 51864 

TRVERR 031664 5106 51498 

TRVEX] 031704 5107 51544 

TRVNMA 032046 5187 51904 

TRVNOB 031656 5145@ 5166 5183 5248 5271 $292 

TRYNUM 032040 5111 51894 

TRVOCT 032040 5114 51884 

TRVSPA 0317546 5110 51688 

TRVSTR 032506 5116 52978 

TSPTR 007654 27198 64918 7515 7523¢ 7575 7582 7969 7972 8025 8028 

TSSFLG 010142 ar 

Tt. = 000001 ter 5801 

TTLLOP= 0 4 ord 3093 

TTIOTCC 010076 735@ 6481 5743¢ 5864 5875 5899"  6076* 

TXBDL )«=—_-s«0 135 34 175@ 7489 

TxBUF 003406 $o3e8 4466 5752 6079 

TC == 000002 285a@ 3578 
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TXMTOT 010074 7348 4454 6660 5758" SB77* 5879 5901" 6071 6075* 6428 6622 
TXONLY 060764 2831 6569" 
TXON2 060772 6570" 
TXPTR 010052 e7e3# GUS 7* 459% 4460 4469% 4476 «S74S* 5756 S878 5892+ ©5895 5898 © 60778 
® 
= 000000 Shee $893 
TXSTAK 007656 7208 6491 
TSARGC= 000001 die | 30toe 2018 so19" 20208 20218 ©3275" «3284. «32928 «3297. «3805 «3311. —«33220 
ty Ma SL ST SP a a A PP 
Seow $444 SG4hw 3652, S6RhH SOB) rise S717 ese 3727 S777H 3781 7858 
790, 3792" $800, $80¢# «$810, Bice © 3800, SBegw 3830, SB 7e 3851 8708 3874 
$850 3888 S895" = 3901 $9078 391 936" 3942 3951" 3959 3965 3975 39818 
3987 3991" «= 3998 «= 404" «= 4012, hl4w §=4022 4048# §=4055 = 4065 =4072 «= 4080" = 4087 
4103# 4108 4134" «4139 «= 42368 4261 a2h6 42524255 4260 = 300" = 4304 =: 50318 
3039, 9062" ©5070, 520BH «5212 Se5l# «5255. 5452" «5436 S522" «5526 5528 5552 
5534@ 5541 57318 «5735. 5 7B80# «65784 4=— 5826" «= 5830 = 5835#@ «5839 «= 58684 «65873 588 3a 
58885910" 5913, 59274 «5952 G0SSH 6058. G105# ©6109, 150 6154 180" 618% 
6256" 6260 6305" 6309 6343 6347 63524 6356 63618 6367 63728 6376 6390" 
6395 64318 = 6435 6442" «6446 296467" «6471 «= 69608 §=— 6964 = 7056" = 7060 «= 7079" = 7083 
TSCODE= 003031 3699" 54424 58124 6999" 81848 81938 8198# 8203" 82098 
TSERRN= 000017 19968 68558 GB74H — GBBBH 7155 75498 © 7595H 7641 77128 7960H © BO21# = B0K2# ©8087" 
TSEXCP= 000000 5699" 3704 54hgW S447 SBI2H ©5817 6999" 7004 8193# 819781984 820282038 
TSFLAG= 000040 34308 3432 55868 5649# 5670" 5672 5692 5694 5799" 5855« 
TSGMAN= 000000 1996@ 3696" 3699 3705¢ 54398 5448 5809" 5812 58188 69960 7005# 
TSHILI= 177776 36998 3703 5442" 5446 S8i2# 581 6999" 7003 81938 8196 81980 82034 
8207 8209" = B212 
TSLAST= 000001 1996@ 82514 
TSLOLI= 160000 $o99n 3702 Suze 5445 SBIZH © S815 6999" 7002, B195H 8195 8198" 820082034 
TSLSYM= 010000 1996# 2146 3287 3300 3314 3331 3347 3365 3384 3400 3427 3538 5344 
5594 5610 5657 5678 5700 8143 8151 8160 8217 
TSLTNO= 000001 8254" 
TSNEST= 177777 19968 1998# 21194 2145# 32738 3286" = 5290K 32004 33034 3513H 33204 33308 535Ge 
33468 33528 33648 35698 33838 33888 33998 3403# 34268 35128 35378 «53338 | 53430 
5353a 53608 5369" 55934 5605# 5609" 56198 5656# 5666" 5677¢ 5688" 56998 57168 
81388 «81428 8146" 81508 8159" 81778 8215e 82550 
T$NSO = 0000 1998 8255 
T$NS1 = 000004 giigw 2145 3273 «5286 $200 ©3299, 3303H 3313, 3520" «5350, S386 3346) 33528 
3364 33698 3383 3388# 3399 34038 3426 35128 3537 53338 5343 95.3538 = 5360 
S3o9# 5595 S605# 5609 S619# «5656 5666H «5677 5688" «5699 = S7léw 8159778 
T$NS2 = 000510 81388 8142 8146" 8150 
TSPTNU= 00000 1996" 
T$SAVL= 177777 1996# 
TSSEGL= 177777 1996" 
T$SUBN= 0 1996@ 5715# 
TSTAGL= 177777 19968 
TSTAGN= 010026 19968 21194 32734 52008 33034 35208 33364 33528 55698 3384 3403" = 35128 53538 
53538 55698 56058 56198 3666H  boBBe  S7ige  B15Ba Bi4Ge 81774 
TSTEAP= 000000 1098 = 211 1e5a 5e8G8  Sg99H | 55138 53208 S54GH  55G4H 55838 55998 34268 34308 
431 537 30998 53454 53008 54428 55868 5587 559SH 56098 S649# 5630 base 
670" 5671 6774 56928 5695 36998 37998 5800, SBIze  58S5H# SBS 9998 8142 
8150# 81598 81938 81988 82038 8209 82158 8255« 
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TSTEST= 000001 19964 7158 54 t. 
TSTSIM= 177777 1996" 98? 87 296 300 9 314 $327 $3) 3343 3347 3361 3365 
380 84 96 400 413 4 427 643 651 3688 3696 3716 3726 
780 1h 4 799 809 819 829 850 3873 3887 3900 3911 3941 3958 
974 986 997 4011 238] 9 4 $97) 4086 4107 4138 2969 4251 4259 
4303 5038 2968 5211 5254 5344 5376 5381 5386 5391 5397 5404 5410 
5420 5432 5439 5455 5475 2292 5531 5540 5543 5545 5560 5570 5577 
5584 5586 5594 5610 eb3e 5635 5649 5657 5678 5700 5734 5783 5793 
5799 5809 20e° 2838 585 5872 5887 5914 5931 6037 6108 6153 6183 
6259 6308 6346 6355 6366 6375 6394 6434 6445 6470 6854 6873 6887 
6963 $398 7059 7082 7143 7152 7548 7556 7594 7640 7711 7718 7801 
7806 959 8003 8020 8041 8086 8097 8160 
TSTSTS= 000001 19964 57168 
TS$AU = 010021 56884 5692 5699 
TSSAUT= 010016 56054 5609 
TS$CLE= 010017 56198 5649 5656 
T$$DU = 010020 56664 5670 5677 
TSSHAR= 010025 8177# 8216 
TS$HW = 010000 21198 2145 
TSSINI= 010015 53694 5586 5593 
TSSMSG= 010011 32734 3286 32904 299 3303# 3313 33208 3330 33368 3346 33528 3364 33698 
3383 3388" 3399 34034 3426 3430 
TSSPRO= 010014 53534 
TSSRPT= 010013 5333a@ 865343 
TSSSRV= 010024 35124 3537 8138" 8142 81464 8150 
TSSTES= 010022 57164 5799 5855 8159 
EDF = 000001 244884 
T.EHRD= 000002 24498 
-ESF = 000000 24678 
T.ESFT= 000003 4508 77 7998 
054164 G 109 57154 
= 000200 G 22184 
ULRCLS 030552 47934 739 
ULRPLS 030454 4516 47328 4896 6678 6717 
ULTCLS 030652 48694 946 6756 
ULTPLS 030612 48308 4949 6705 
UPTABL 061252 67034 
UPTA1 061336 6710 67178 
UPTAG 061302 6704 67094 
UPTEX 061436 6715 67314 
VALTRB 003404 26898 6380« 6409* 
VECTOR 0457324 8199 a519" 
VSTAT 611514 29334 377 7158*  7328* 
WRFLG 003402 2687. 
at = 000234 19998  2955@ 9564 957# 29584 29594 9604 9614 3TH 29634 29648 29658 29668 
29678 9684 9694 9708 9714 Base 9738 974a 9758 29768 29778 29808 29818 
$4544 9834 9844 9854 9868 9878 988" 9898 9904 9918 9924 9938 29948 
9954 9964 9974 0014 0028 0034 0044 0054 0104 Olle Ol2e O13# 30148 
0174 018% 0194 Ste 0214 bees 0234 0244 pegs 0278 0284 0298 30308 
30314 0344 0354 0364 037¢@ 0394 0404 0424 0434 045@ 30468 0488 an2)8 
3052@ 0534 0544 0554 0564 0574 0584 0594 0604 0618 30628 0634 0648 
30654 0664 0694 0704 0714 0724 0734 07448 075@ 0788 0798 0804 O8l# 
ones tte 0864 0878 0884 0904 0934 gyee8 0954 yee 097" 0984 0998 
1004 1034 1044 1054 1084 1098 1104 1114 1128 1134 1144 31168 1\7@ 
1184 1194 1204 123@ 8 4172@ 4173@ 41748 61758 461768 41778 41788 41798 41808 
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